[vic_ia]

hola...

seria algo mas o menos asi :

Código Delphi [-]
function SoloPalabra(Texto : String) : String;
var
  palabra : String;
  i, k : integer;
begin
  k := Length(Texto);
  for i := 1 to k do
     if Texto[i] in ['0','1',....,'9']  {aqui pones todos los digitos...}
        then Break
        else palabra := palabra + Texto[i] ;
   Result := palabra;
end;

espero te oriente... saludos.....