Função Que Retorna Somente Números [Delphi]

Remove Todos os  caracteres de uma String deixando somente números 

function SoNumero(fField : String): String; 
var   
  I : Byte; 
begin   
   Result := '';   
   for I := 1 To Length(fField) do      
       if fField [I] In ['0'..'9'] Then        
            Result := Result + fField [I]; 
end;