Strings in Stringgrid Spalten mit Währung Formatieren

[Natcree]

Mit format aber die Ausgabe im stringrid ist ne einfache Zahl ohne Währung und nun??

Delphi-Quellcode:

for j:= form1.ElTreeStringGrid1.row to form1.ElTreeStringGrid1.RowCount-1 do
begin
Summe1   := strtofloatdef(form1.eltreestringgrid1.cells[2,j],0) + strtofloatdef(form1.eltreestringgrid1.cells[3,j],0);
Summe2   := strtofloatdef(form1.eltreestringgrid1.cells[4,j-1],0);
Ergebnis := Summe1 + Summe2;

form1.eltreestringgrid1.cells[4,j] := Format('%s', [Floattostr(ergebnis)]);

end;

wenn ich 5 eingebe soll er 5,00 € anzeigen die eingegebenen Werte sollen aber auch Später wieder mit in eine Addition genommen werden. ein € hinter zusetzen ist kein Problem aber wenn dies ein mal drinne ist zeigt er mir fehler an das 5,00 € z.b. kein float wert ist.