[lmikle]

В Memo вносятся значения. На одной строке одно значение.
Надо просто их перевести в цифры и "засунуть" в Serie, созданное в TChart.

Код:

procedure TForm1.N2Click(Sender: TObject);
var
  I : Integer;
  D : Double;
begin
  Chart1.Series[0].Clear;
  For I := 0 To Memo1.Lines.Count-1 Do
    If TryStrToFloat(Trim(Memo1.Lines[i]),D) Then
      Chart1.Series[0].Add(D);
end;

Проект Delphi 7 прикреплен.