[M.A.D.M.A.N.]

Код:

function ClearText(Text:String):String;
var Temp:String;
    Index:Byte;
begin
  Temp:='';
  For Index:=1 To Length(Text) Do
    If Not (Text[Index] In ['A'..'Z','a'..'z']) Then
      Temp:=Temp+Text[Index];
  Result:=Temp;
end;

Использовать

Код:

edit1.Text:=ClearText(edit1.Text);