Edit mit variabler Nummer

[traudl]

Ich habe jetzt ein onKeypress Ereignis geschrieben, weiß aber nicht wie ich es dem Editfeld zuweisen kann.

Delphi-Quellcode:

procedure TForm6.Edit_neg(Sender: TObject; var Key: Char);
begin
    If not(key in [#48..#57,#8,#44..#46])
    then key := #0;
    If Key = #44 then Key := #46;
end;

weil ich kann in die Felder eingeben was ich will und nicht nur Zahlen.

Hat jemand eine Idee.

Gruß Udo