Hallo,
du kannst das Event OnKeyPress benutzen und falls das Zeichen nicht erlaubt ist, dann Key einfach auf #0 setzen.
Delphi-Quellcode:
procedure TForm1.DoOnEdit1KeyDown(Sender: TObject; var Key: Char);
begin
if not (Key in ['0'..'9', ',', #8]) then // #8 ist die Backspace Taste
Key := #0;
end;
Evtl musst du noch abprüfen, ob das Komma nur einmal im Text ist.
Ciao Chris