du könntest testweise bei allen wörtern und dem jeweils darauffolgenden wo du grade überprüfst das leerzeichen wegmachen...weisst wie ich mein?
also so:
Delphi-Quellcode:
Explode(Wortliste,' ');
for i:=1 to length(Wortliste) do
begin
Teste(Wortliste(i));
Teste(Wortliste(i)+Wortliste(i+1));
end;
mit teste testes du halt mit dem algo obs ähnlich ist...
sind wahrscheinlich noch massig fehler drin...aber als grundidee sollte es schoma funzen...
event vorher auch alles noch durch trim durchjagen, etc.