[quetzal]

o mejor dicho

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