[dec]

La siguiente función quita de la cadena que se pasa como parámetro todas las letras que esta contenga:

Código Delphi [-]
function QuitarLetras(const cadena: string) : string;
var
  i: integer;
begin
  for i := 1 to Length(cadena) do
    if cadena[i] in ['0'..'9'] then
      Result := Result + cadena[i];
end;