Delphi заготовки

все числа в том числе и вещественные
Function GetAllNumber(s:string):string;
var s2:string;
x,l:integer;
begin
s2:='';
l:=length(S);
for x:=1 to l do
if ((s[x]>='0') and (s[x]<='9')) or s[x] in ('.',',') then s2:=s2+s[x];
result:=s2;
end;

// только целые числа
// all integer
Function GetAllNumber(s:string):string;
var s2:string;
x,l:integer;
begin
s2:='';
l:=length(S);
for x:=1 to l do
if ((s[x]>='0') and (s[x]<='9')) then s2:=s2+s[x];
result:=s2;
end;