1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

procedure TForm1.sg1KeyDown(Sender: TObject; var Key: Word; // StringGrids Ereignis
  Shift: TShiftState); var i:integer; // virtuelle Tastencodes
  f:file;
begin if Key = vk_RETURN then begin BeiEnterAufCol1; Key := 0; end;
      if Key = vk_F3 then rechne(sg1);
      if Key = vk_F6 then begin Sortiere(sg1);Hilfe('Tabelle ist aufsteigend');end;
      if (ssCtrl  in Shift)and(key = vk_Left) then AlleNachLinks;
      if (ssCtrl  in Shift)and(key = vk_Right) then AlleNachRechts;
      if (ssAlt  in Shift)and(key = vk_Next ) then WertNachUnten;// Problem 1
      if (ssCtrl  in Shift)and(key = ord('e') ) then EditModus; // Problem 2
end;					

1:

Key := 0;