[wany.iv]

Код:

function TForm4.pptt2(a,s:integer;x:string):string;//определение присутствия текста   memo
begin
      s:=0;
      for a:=0 to Memo2.Lines.Count-1 do
                                        begin
                                             if AnsiPos(x, Memo2.Lines[i])<>0
                                                                              then
                                                                                                begin
                                                                                                      s:=1;
                                                                                                end;

                                        end;
      if s=1 then
                  begin
                       Result:='да';
                   end;
       if s=0 then
                   begin
                        Result:='нет';
                    end;


end;

Админ: Пользуемся тегами при оформлении кода!

Переменная Х содержит текст, если текст присутствует в memo выводиться да и наоборот. Первые раза 2-3 использования функции работает, потом нет не пойму в чем ошибка.
Заранее спасибо.