Utiliza TAG's cuendo escribas código Delphi.
En la ayuda de Delphi puedes encontrar este ejemplos:
Código Delphi
[-]
procedure TForm1.Button1Click(Sender: TObject);
var
Bitmap : TBitMap;
begin
Bitmap := TBitmap.Create;
try
with Bitmap do begin
LoadFromFile('C:\Program Files\Common Files\Borland Shared\Images\Splash\256color\factory.bmp');
Transparent := True;
TransParentColor := BitMap.canvas.pixels[50,50];
Form1.Canvas.Draw(0,0,BitMap);
TransparentMode := tmAuto;
Form1.Canvas.Draw(50,50,BitMap);
end;
finally
Bitmap.Free;
end;
end;
¿Exactamente cuel es tu problema?
¿Ese código que has puesto no te funciona? ¿Te da error?
Intenta explicarte mejor.