Не работает функция проверки подстроки в строке

[Cold_Night]

function Check(Main, Sub: AnsiString): Boolean;
var N: Cardinal;
begin
  for N:=1 to Length(Main) do
 if Copy(Main, N, Length(Sub)) = Sub then Result:=True else
 Result:=False;
end;

Функция возвращает неправильные значения. В чём ошибка? Заранее спасибо.

[Gorychev]

Все можно сделать значительно проще, для этого существует функция pos. Почитайте справку, она вам еще не раз пригодится.

function Check(const Sub, Main: AnsiString): Boolean;
begin
 result:= pos(Sub, Main) <> 0;
end;

Я там в объявлении функции, Sub и Main местами поменял для удобства восприятия

Если же делать с помощью Copy, как делали вы, то нужно при совпадении строк выходить из цикла, иначе следующая итерация скорей всего перебьет значение True которое приняла result.

function Check(Main, Sub: AnsiString): Boolean;
var N: Cardinal;
begin
 Result:=False;
 for N:=1 to Length(Main) do
 if Copy(Main, N, Length(Sub)) = Sub then
   begin
     Result:=True;
     break;
   end;
end;