String durchsuchen???

[Dax]

Delphi-Quellcode:

function Search(Source, Words: string): Boolean;
var
  strings: array of String;
  i: Integer;
begin
  Result := false;
  strings := (Words trennen);
  for i := 0 to High(strings) do
  begin
    Result := Result or (Pos(strings[i], Source) <> 0);
    if Result then Break; 
  end;
end;

Untested
edit: Ein wenig verschnelltert