Punkte im TDBEdit entfernen

[Duffy]

Hallo zusammen,
ich rätsele schon seit einiger Zeit mit einem recht trivialem Problem herum. Ich möchte Druck aufbreitete Zahlen wie 1.024.583,50 in ein TDBEdit Eingabefeld per Copy und Paste manuell kopieren ohne anschließend die Punkte zu entfernen.

Ich habe es schon mit dem Editformat und ähnlichem versucht. Der letzte Versuch war über das Ereignis “OnChange“ eine Routine in der Form

Delphi-Quellcode:

 procedure TMainForm.OnInputChange(Sender: TObject);
var
  Text: string;
begin
  if not(DBNavigator.DataSource.State in [dsEdit, dsInsert]) then
    Exit;
  Text := TDBEdit(Sender).Text;
  while Pos('.', Text) > 0 do
  begin
    Delete(Text, Pos('.', Text), 1);
  end;
  TDBEdit(Sender).Text := Text;
end;

doch dann sind leider auch die Punkte in der Anzeige weg. Wie gesagt, drehe ich mich da im Moment im Kreis. Ach ja, ich habe auch alle anderen Properties versucht. Leider nur ohne Erfolg.

Eine kleine Demo habe ich beigepackt, damit man sieht, was ich meine.

Bye
Claus