Поиск в StringGrid'е

[macomics]

var
  f, i, j, t: Integer;  
  city, comp, street: String;
begin
  with StringGrid1 do for i := FixedRows to RowCount -1 do begin
      f := -1; city := Cells[1, i]; comp := lowercase(city); // Сохраним значения текущейстроки в StringGrid1
      t := strtoint(Cells[3, i]); street := Cells[2, i];
      with StringGrid2 do for j := FixedRows to RowCount - 1 step 2 do
        if lowercase(Cells[1, j]) = comp then begin
          f := j;
          break;
        end; // Совпадение найдено, изменяем флаг
      with StringGrid2 do if f < 0 then begin // Добавляем новый город
        InsertRowWithValues(RowCount, [inttostr(RowCount), city, street, inttostr(t)]); // Будет минимальное значение
        InsertRowWithValues(RowCount, [inttostr(RowCount), city, street, inttostr(t)]); // Будет максимальное значение
      end else begin
        if strtoint(Cells[3, j]) > t then begin
          Cells[2, j] := street;
          Cells[3, j] := inttostr(t);
        end;// Обновляем минимум
        if strtoint(Cells[3, j + 1]) < t then begin
          Cells[2, j + 1] := street;
          Cells[3, j + 1] := inttostr(t);
        end;// Обновляем максимум
      end;
    end;
end;

Вот так должно сработать. В браузере исправил - могут быть опечатки.