Strings in Stringgrid Spalten mit Währung Formatieren

[Natcree]

deddyh funktioniert aber wenn ich mit einer eingabe mache kommt ein fehler . '%.2n €' ungültiges argument

stringgrid1.cells[2,i]:=Format('%.2n €', [Edit3.text])
Hier mal der komplette code

Delphi-Quellcode:

procedure TForm7.Button2Click(Sender: TObject);
var
i,j:integer;
Summe1,Summe2,Ergebnis: double;
begin
edit5.text:='';
edit6.text:='';
edit7.Text:='';
if label11.caption='b' then i:=form1.ElTreeStringGrid1.Row
else i:=form1.ElTreeStringGrid1.RowCount-1;
form1.eltreestringgrid1.Cells[0,i]:=edit1.Text;
form1.eltreestringgrid1.Cells[1,i]:=edit4.Text;
form1.eltreestringgrid1.Cells[2,i]:=Format('%.2n €', [Edit3.text]);
form1.eltreestringgrid1.Cells[3,i]:='';
form1.eltreestringgrid1.Cells[5,i]:=edit2.Text;
form1.eltreestringgrid1.Cells[6,i]:=memo1.Text;
form7.edit1.Text:='';
form7.edit4.Text:='';
form7.edit3.Text:='';
form7.edit2.Text:='';
form7.memo1.Text:='';
form7.edit5.Text:='';
form7.edit6.Text:='';
form7.edit7.Text:='';
form7.edit8.Text:='';
form7.memo2.Text:='';
if label11.Caption='b' then j:= form1.ElTreeStringGrid1.Row;
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('%.2n €', [Ergebnis]);
end;
if label11.Caption='' then
for j:= 1 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('%.2n €', [Ergebnis]);
end;
if SysUtils.FileExists('c:\Programme\Vereintool\Daten\Kassenbuch\'+FormatDateTime('yyyy',  now)+'\Handkasse '+FormatDateTime('yyyy',  now)+'.xls') then
DeleteFile('c:\Programme\Vereintool\Daten\Kassenbuch\'+FormatDateTime('yyyy',  now)+'\Handkasse '+FormatDateTime('yyyy',  now)+'.xls');
SaveAsExcelFile(form1.eltreestringGrid1, 'Tabelle1', 'c:\Programme\Vereintool\Daten\Kassenbuch\'+FormatDateTime('yyyy',  now)+'\Handkasse '+FormatDateTime('yyyy',  now)+'.xls');
close;
end;