Да ладно, парсер.
Разбить фразу на слова по пробелу можно таким путем:
Код:
var
S : String;
L : TStringList;
begin
S := 'ололо трололо хехехе пффф ыыы";
L := TStringList.Create;
L.Text := StringReplace(S,' ',#13#10,[rfReplaceAll]);
...
Далее циклом ищешь свои 3-и слова (индекс в списке с 0).