Codename ZARA: Sprachassistent

[newmusicslamer]

Ich arbeite gerade an einem gleichen Programm.
Du kriegst die reine Antwortprogrammierung über ein Editfeld gut hin (also der Benutzer schreibt frage rein antwort über label)

Der Code sieht so aus:

Code:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if ContainsText2('wie', Edit1.Text) and ContainsText2('geht', Edit1.Text) and
    ContainsText2('dir', Edit1.Text) then label1.Caption := 'Ganz Gut so weit und dir?' ;
end;

Das waäre ein Bsp. für die Frage wie es dem Programm gehe, dabei erkennt er die Wörter 'wie', 'geht', und 'dir' im editfeld (egal ob du was dazwischen schreibst) und änder die Caption des Labels!

Ich hoffe ich konnte dir helfen!