Программа для построения и анализа графов / 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.