Na, dann rate ich mal mit:
Man könnte die Frage auch so verstehen, dass nach der Eingabe von zwei Ziffern automatisch ein Punkt angehängt wird. Also eventuell sowas:
Delphi-Quellcode:
procedure TForm1.edZahlenfeldKeyPress(Sender: TObject; var Key: Char);
begin
// Nur Ziffern zulassen, andernfalls raus.
if not (key in ['0'..'9']) then begin
key:= #0;
exit;
end;
// Sind zwei Ziffern im Edit?
if Length(edZahlenfeld.Text) = 2 then begin
edZahlenfeld.Text := edZahlenfeld.Text + '.';
end;
// Oder eher sowas?
if Length(edZahlenfeld.Text) = 2 then begin
edZahlenfeld.Text := edZahlenfeld.Text + FormatSettings.DecimalSeparator;
end;