[timeless]

Код:

...
  image1.Canvas.MoveTo(0,Image1.Height-round(strtofloat(edit1.Text)));
  for i:=0 to sl.Count-1 do begin
    image1.Canvas.LineTo(i*50, Image1.Height-round(strtofloat(sl[i])));
  end;
  sl.Free;
end;