probleme mit formatierter Ausgabe in Edit.TXT

[tedbomi]

Hallo Leute,

ich habe eine kleine Maske zum Erfassen von Preis, Anzahl und einer zu berechnenden Summe eingerichtet.

Die Ausgabe soll nicht "12345,67", sonder so aussehen "12.345,67". Mit folgenden Zeilen habe ich mein Problem realisiert:

Delphi-Quellcode:

procedure TForm1.EinpreisKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
Var Preis,Summe: Real;
begin

  If Key=13 Then
    begin
      Preis:=StrToFloat(ol(EinPreis.Text));
      EinPreis.Text:='  '+FloatToStrF(Preis,ffNumber,8,2);
    end;

Nach ENTER soll also die Eingabe formatiert angezeigt werde. Es klappt bis 999,99 ganz gut, ab 1000.00 kommt eine Fehlermeldung:


------------------------
Im Projekt Lehrer.exe ist eine Exception der Klasse EConvertError mit der Meldung ''1.000,00' ist kein gültiger Gleitkommawert' aufgetreten.
------------------------

Was mache ich falsch, bzw. was habe ich übersehen?

Ich bin neugierig auf die, sicherlich einfachen, Hinweise

TedBomi