also eine explode funktion wie in PHP bietet delphi definitiv nicht .. da bleibt dir wohl nichts uebrig, als dir selber was zu basteln ...

du koenntest z.B. jedes Zeichen des Strings auslesen und wenn es ein trenzeichen ... also leerzeichen, punkt, komma, etc ist, faengst ein neues Wort an, das du in nem extra string speicherst .. z.B. in einer Stringlist. Dann kannst du im Nachhinein die woerter nach deinem gesuchten wort ueberpruefen ..

hier mal ein Beispiel

Code: 
function SucheWort(Text,Wort:String):Boolean;
var list:TStringList;
    temp:String;
    i:Integer;
begin
 list:=TStringList.Create;
 temp:='';
 for i:=1 to length(Text) do
  if (Text[i]=' ') // hier alle gueltigen Trenzeichen mit Oder Verknuepfen
     AND (temp<>'') //Mehrmalige Trennzeichen als ein Trennzeichen sehen
     then begin
           list.Add(temp); //Vollstaendiges Wort der Liste hinzufuegen
           temp:=''; //Temporaerstring zuruecksetzen
          end 
     else temp:=temp+Text[i]; //sonst Zeichen an aktuelles Wort anhaengen
 result:=false; //Standardmaessig wort nicht gefunden
 for i:=0 to list.count-1 do 
   result:=result or (list.strings[i]=wort); //ist result einmal wahr, so bleibt es immer wahr
 list.free;
end;
Diese einfache Funktion gibt true zurueck, wenn Wort in Text enthalten ist, und false, wenn nicht. Natuerlich koennte man stattdessen auch den Index des Wortes oder die Position des Startzeichens in Text zurueckgeben.

Gruss Ineluki