Strings in Stringgrid Spalten mit Währung Formatieren

[Natcree]

Okay habs mal umgeschrieben

Delphi-Quellcode:

type
   Tirgendwas = class(tobjectlist)
....
procedure TForm1.Button1Click(Sender: TObject);
 var
   irgendwas: Tirgendwas;
 begin
   irgendwas := Tirgendwas.Create;
   try
     irgendwas.ErsteZahlAsString := edit1.Text;
     irgendwas.ZweiteZahlAsString := edit2.Text;
     irgendwas.Add(irgendwas);
   except
     on E: Exception do
       begin
         MessageBox(0, PChar(E.Message), nil, MB_OK or MB_ICONERROR);
         irgendwas.Free;
       end;
   end;
 end;

Die wiedergabe möchte ich so machen kommt aber nur 0,00 raus

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var
   irgendwas: Tirgendwas;
begin
edit3.text := irgendwas.ErsteZahlAsString;
end;