EditMask in Tedit

[Apollonius]

In meinem D2005 gibts in der Palettenseite zusätzlich die Komponente TMaskEdit, da kann man das einfach einstellen.
Wenn es die Kompo bei dir nicht gibt, dann musst du das OnKeyPress-event des Edits verwenden.

Delphi-Quellcode:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
const erlaubteZeichen:set of char=['0'..'9'];  //<--Die Zeichen, die du erlauben willst
begin
if not (key in erlaubteZeichen) then
 key:=#0;   //<--key wird ungültig gemacht

end;