Alice - künstliche Intelligenz

[TimerTim]

Hi,

Für eine neue Version von "Alice" habe ich eine Prozedur programmiert.
Sie soll, wenn ein Text in einem String vorkommt, die Variable "Found" auf True setzen.
So sieht Sie aus:

Delphi-Quellcode:

procedure TxtInStr(Str: String; Txt: String);
var i: Integer;
begin
  For i := 1 To Length(Str) Do If Copy(Str, i, i + Length(Txt) - 1) = Txt Then Found := True;
end;

Aber die Prozedur setzt "Found" nur auf True, wenn der Text am Anfang oder am Ende des Strings steht.
Wenn er in der Mitte ist, passiert nichts.
Was habe ich falsch gemacht?
Oder ist so eine Prozedur sogar schon in Delphi vorgegeben?