[Мишка-90]

спасибо за помощь ^_^
довёл до ума.
вот решение:

Код:

procedure TForm1.BitBtn1Click(Sender: TObject);
var
i, j : integer;
Messagee : integer;
begin
    StringGrid11.RowCount := 36;
      for i := 9 to 278 do
       for j := 5 to 35 do
         if Length(StringGrid11.Cells[i,j]) = 0 then Begin
          Begin
            StringGrid11.Row := j;
            StringGrid11.Col := i;
            //break;
            Messagee := MessageDlg('Продолжить поиск?', mtInformation, mbOKCancel, 0);
              case Messagee of
                IDOK     : Continue;
                IDCANCEL : Exit;
              end;
          End;
     End;
end;