[timeless]

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
  sl: tstringlist;
  max, scale: real;
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);
  max:=0;
  for i:=0 to sl.Count-1 do begin
    if strtofloat(sl[i])>max then max:=strtofloat(sl[i]);
  end;
  scale:=image1.Height/max;
  image1.Canvas.MoveTo(0,Image1.Height-round(strtofloat(edit1.Text)*scale));
  for i:=0 to sl.Count-1 do begin
    image1.Canvas.LineTo(i*50, Image1.Height-round(strtofloat(sl[i])*scale));
  end;
  sl.Free;
end;

Это если все числа положительные. 50 это шаг по иксу, можно выбрать другой или вычислить от размера рисунка и количества значений.
Весь пост цитировать не надо.