var Canv: TCanvas; Bitmap:TBitmap; begin Canv:=TCanvas.Create; Canv.Handle:=GetDC(Panel1.Handle); Bitmap:=TBitmap.create; Bitmap.loadfromfile('C:\Tonchemin..Ton.bmp'); Canv.Draw(0,0,bitmap); Canv.font.color:=clred; Canv.brush.Style:=BsClear; Canv.TextOut(20,20,'Un petit message'); FreeAndNil(Canv); // ou "Canv.Free;" selon les versions de Delphi end;