Если человек делится яблоками, значит у него есть яблоки.
Если человек делится идеями, значит... у него нет яблок.

procedure BmpTransparent;
var
i,j:word;
c:TColor;
begin
if Bmp.Empty then exit;

c := Bmp.Pixels[0,0];
for i := 0 to Bmp.Width-1 do
for j := 0 to Bmp.Height-1 do
if Bmp.Pixels[i,j] = c then
Bmp.Pixels[i,j] := clBtnFace; //GetSysColor(COLOR_BTNFACE);
end;