1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

procedure TForm1.StringGrid1MouseWheelDown(Sender: TObject; 
  Shift: TShiftState; MousePos: TPoint; var Handled: Boolean); 
begin 
  with Sender as Tstringgrid do 
    begin 
      //obere Reihe + angezeigte Reihen darf nicht größer sein, als die Gesamtreihen      
      if TopRow+Visiblerowcount<rowcount then toprow:=toprow+1 
    end; 
  handled:=true; 
end; 

procedure TForm1.StringGrid1MouseWheelUp(Sender: TObject; 
  Shift: TShiftState; MousePos: TPoint; var Handled: Boolean); 
begin 
  with Sender as Tstringgrid do 
    begin 
      if TopRow>fixedrows then toprow:=toprow-1 
    end; 
  handled:=true; 
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

procedure TFormDBMain.DBMainStringGridClick(Sender: TObject);
var
  rGrid                 : TGridCoord;
  rCursorPos            : TPoint;
  rRect                 : TGridRect;

begin
  GetCursorPos(rCursorPos);
  rCursorPos := DBMainStringGrid.ScreenToClient(rCursorPos);
  rGrid := DBMainStringGrid.MouseCoord(rCursorPos.X, rCursorPos.Y);
  if (rGrid.Y > 1) and (rGrid.Y < DBMainStringGrid.RowCount) then begin
    rRect.Top                   := rGrid.Y;
    rRect.Bottom                := rGrid.Y;
    rRect.Left                  := 0;
    rRect.Right                 := DBMainStringGrid.ColCount;
    DBMainStringGrid.Selection  := rRect;
  end;
end;                    

1:

rRect.Right                 := DBMainStringGrid.ColCount-1;