Components for Delphi and C++ Builder.

procedure TCustomDBGridEh.InternalLayout;
var
...
  AFrozenCols: Integer;
  AVisFrozenCols: Integer;
...
begin
...
  if not DataLink.Active and (Columns.State = csDefault) then
  begin
    AFrozenCols := 0;
    AContraColCount := 0;
  end else
  begin
    AFrozenCols := 0;
    if (FrozenCols > 0) then
    begin
      AVisFrozenCols := 0;
      for I := 0 to Columns.Count - 1 do
      begin
        AFrozenCols := AFrozenCols + 1;
        if (Columns[I].Visible = True) then
        begin
          AVisFrozenCols := AVisFrozenCols + 1;
          if AVisFrozenCols >= FrozenCols then
            Break;
        end;
      end;
    end;

    if AFrozenCols >= Columns.Count then
      AFrozenCols := Columns.Count - 1;

//    if FrozenCols >= Columns.Count
//      then AFrozenCols := Columns.Count - 1
//      else AFrozenCols := FrozenCols;

    if ContraColCount >= Columns.Count - AFrozenCols
      then AContraColCount := Columns.Count - AFrozenCols - 1
      else AContraColCount := ContraColCount;
  end;
...