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']
then Break
else palabra := palabra + Texto[i] ;
Result := palabra;
end;
espero te oriente... saludos.....