Помогите дописать мои код поиска!

[AlexII]

Я в Delphi начинающий и смастерил вот этот код поиска, он однако еще не может "искать далее". Кто поможет доделать код?

procedure TForm1.Button1Click(Sender: TObject);
var s1: String;
    i,j,u: Integer;
begin
s1:=Edit4.Text;
u:=Length(s1);
    if u>=2 then
    begin
          with StringGrid1 do
          for i:=0 to ColCount-2 do
              for j:=1 to RowCount-1 do
              if Copy((Cells[i,j]),1,u)=s1 then
              begin
              Edit4.Color:=clWindow;
              StringGrid1.Selection:=TGridRect(Rect(i,j,i,j));
              Exit;
              end else
                  begin
                  Edit4.Color:=clYellow;
                  Edit4.SetFocus;
                  end;
    end else
        begin
        Edit4.Color:=clYellow;
        Edit4.SetFocus;
        end;
end;

[Спартак]

if Copy((Cells[i,j]),1,u)=s1 then
begin
Edit4.Color:=clWindow;
StringGrid1.Selection:=TGridRect(Re ct(i,j,i,j));
Exit;
end
Получается, что если такой элемент найден, то Exit выполняет выход из этой функции. Поэтому поиск дальше не идет

[AlexII]

Но с Break он тоже не идет.

[alexBlack]

Две кнопки - "найти" и "продолжить поиск" вызывают одну процедуру, которая ищет или с начала таблицы или продолжает поиск с последней позиции.

{
 В свойствах класса
}
    FCurCol, FCurRow : integer;
    FFindStr : String;

procedure TForm1.findNext(isBegin : boolean);

 function nextCell:boolean;
 begin
    result := true;
    inc(FCurCol);
    if FCurCol > StringGrid1.ColCount-2 then begin
       FCurCol := 0;
       inc(FCurRow);
       if FCurRow > StringGrid1.RowCount-1 then result := false;
    end;
 end;

var u:integer;
begin
   if isBegin then begin
      // Начало поиска
      FCurCol := 0; FCurRow := 0;
      FFindStr := Edit4.Text;
   end else begin
      if not nextCell then begin
         ShowMessage('not found');
         exit;
      end;
   end;

   u := length(FFindStr);
   while true do begin
      if Copy((StringGrid1.Cells[FCurCol, FCurRow]),1,u)=FFindStr then begin
         Edit4.Color:=clWindow;
         StringGrid1.Selection:=TGridRect(Rect(FCurCol, FCurRow,FCurCol, FCurRow));
         Exit;
      end;
      if not nextCell then begin
         ShowMessage('not found');
         break;
      end;
   end;
end;

procedure TForm1.ButtonFindClick(Sender: TObject);
begin
   findNext(true);
end;

procedure TForm1.ButtonFindNextClick(Sender: TObject);
begin
   findNext(false);
end;

[AlexII]

Что то показывает тут ошибку

procedure TForm1.Button2Click(Sender: TObject);
begin
findNext(true);
end;

Inkompatible Typen: "TStringGrid" and "Boolean"

[alexBlack]

А у Вас объявлена в TForm1 ? :

procedure findNext(isBegin : boolean);

Покажите весь код. Что-то не так объявлено.