Komma automatisch setzen bei Geldbetrag im Edit

[Neutral General]

Hallo,

So funktioniert es:

Delphi-Quellcode:

procedure TForm1.Edit1Change(Sender: TObject);
var Text: String;
    Sel: Integer;
begin
  Sel := Edit1.SelStart;
  Text := StringReplace(Edit1.Text,',','',[rfReplaceAll]);

  if Length(Text) > 2 then
  begin
    Insert(',',Text,Length(Text)-1);
    if Sel > Length(Text)-2 then
      inc(Sel);
  end;

  Edit1.Text := Text;
  Edit1.SelStart := Sel;
end;