@Corleone: Bitte vesuche den Quelltext auch zu verstehen.
Was passiert, bzw. soll passieren bei folgendem Quelltext?
Delphi-Quellcode:
procedure TFormVieleck.EditradiusChange(Sender: TObject);
var key:Char;
begin
If not(key in [#48..#57,#8]) then
key := #0;
end;