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

procedure TForm1.StringGrid1MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
  var Select : TGridRect;
begin
  if (getkeystate(vk_CONTROL) and 128)=128 then StringGrid1.Options := //Zeile auswählen  
                            StringGrid1.Options + [goRowSelect]
  else
  with StringGrid1 do
      begin  
        Select.Left := 1;
        Select.Right := ColCount;  
        Select.Top := 1;
        Select.Bottom := RowCount;  
        Options := Options - [goRowSelect];
        Selection := Select;  
      end;

end;