Ich hoffe, ich habe dich nicht falsch verstanden.
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var i: integer; Ergebnis: extended;
begin
Ergebnis:=0;
for i:=0 to Memo1.Lines.Count-1 do
begin
Ergebnis:=Ergebnis+StrToFloat(Memo1.Lines[i]);
end;
Label1.Caption:=FloatToStr(Ergebnis);
end;