hallo.
1) Danke für ihre Hilfe!
2) Da ich nur Zahlen eingeben darf habe ich das so gelöst.
Delphi-Quellcode:
procedure Tf_schadensbilderbuchung_innen.led_schadennrKeyPress(
Sender: TObject; var Key: Char);
var tr_integer: Integer;
begin
If (not TryStrToInt(Key,tr_integer)) and (Key <> chr(VK_BACK)) Then Key := Chr(0);
end;
so sollte das problemlos funktionieren... oder ?