[timeless]

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
  sl: tstringlist;
begin
  sl:=tstringlist.Create;
  sl.Add(edit1.Text);
  sl.Add(edit2.Text);
  sl.Add(edit3.Text);
  sl.Add(edit4.Text);
  sl.Add(edit5.Text);
  sl.Add(edit6.Text);
  image1.Canvas.MoveTo(0,Image1.Height-strtoint(edit1.Text));
  for i:=0 to sl.Count-1 do begin
    image1.Canvas.LineTo(i*50, Image1.Height-strtoint(sl[i]))
  end;
  sl.Free;
end;