1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

Procedure TEdit.OnKeyPressReal( ..... ); // ableiten vom Orginal und umbenennen
Begin 
  If (Key=',') and (Pos(',',(Sender as TEdit)>0) then Key:=Chr(0)
  else
  begin
    If (Key<>',')  {or (Key<>'%')} then // geschweift für weitere zugelassene Zeichen
    Begin
      If (Key<>Chr(8)) {or (Key<>'%')} then // geschweift für weitere zugel. Zeichen
      Begin
        If (Key<'0') or (Key>'9') then Key:=Chr(0);// Eingabe verwerfen...
      end;
    end;
  end;
end;