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;