Удалить буквы из переменной

[UKRtortik]

Как можно удалить все буквы и символы из переменной и оставить только цифры?

[UKRtortik]

А все извините разобрался. Возможно кому то пригодится:

function only_numbers(str:string):string;
var
buf:string;
i:integer;
begin
buf:='';
for i:=1 to length(str) do
if str[i] in ['0'..'9'] then buf:=buf+str[i];
Result:=buf;
end;

per:=only_numbers(per);