[ApplicatiOn]

самый простой способ:

Код:

var
str: string;
d: integer;
i: integer;

begin
str:= '';
for i:= 0 to Length(Edit1.text) do
if Edit1.text[i] in ['0'..'9'] then
str := str+edit1.text[i];
d := strtoint(str);
end;