Fórum separar números de letras... #334390

function Numerico(sAux: string): string;
var
i: Integer;
begin
result := ´´;
for i:=1 to Length(sAux) do
if sAux[i] IN [´0´..´9´] then
result := result + Copy(sAux, i, 1);
end;