Edit immer mit 2 Nachkommastellen

[Stevie]

Kannst auch das hier versuchen (nicht sehr ausgiebig getestet):

Delphi-Quellcode:

procedure TForm1.Edit1Change(Sender: TObject);
var
  SelStart: Integer;
begin
  try
    SelStart := Edit1.SelStart;
    Edit1.Text := Format('%.2f', [StrToFloat(Edit1.Text)]);
    Edit1.SelStart := SelStart;
  except
  end;
end;