[Alan85]

попробуй как то вот так:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var can:tcanvas;
begin
  can:=TCanvas.Create;
  can.Handle:=GetDC(BitBtn1.Handle);
  can.LineTo(10,100);
  can.free;
end;