procedure TForm1.Button1Click(Sender: TObject);
var DC:HDC;
begin
DC:=GetDc(0);
MoveToEx(Dc,0,0,nil);
LineTo(Dc,300,300); //Dessine un ligne
ReleaseDc(0,DC);
end;