В 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 прикреплен.