Программа для построения и анализа графов / UDraw

unit UDraw;

interface
uses graphics;
procedure drawLine(canv: Tcanvas; x1, x2,y1, y2:integer);

implementation
uses sysutils;
procedure drawLine(canv: Tcanvas; x1, x2,y1, y2:integer) ;
var i: integer;
begin
Canv.Lock; canv.Pen.Width:=1;
Canv.Refresh;
Canv.Pen.Color := clBlack;
for I := 0 to 10 do begin
canv.LineTo(round(I*(x2-x1)/10+x1),round(I*(Y2-Y1)/10+y1) );
//sleep(1000);
end;
canv.Unlock;
end;
end.