type
  TShortCuts = record
    case ShortCutNum : Byte of
      3 : (
        DealSC : TShortCut;
        NoDealSC : TShortCut;
        SonderTaste : array [1..3] of Boolean;
      );
  end;

{...}

procedure TfMain.bSettingsClick(Sender: TObject);
var ShortCut : TShortCuts;
begin
  ShortCut.ShortCutNum := 3;
  ShortCut.DealSC := Alt + D; // hier meckert er rum: [Error] Undeclared identifier: 'Alt'
  ShortCut.NoDealSC := 'Alt + N'; // hier meckert er um: [Error] Incompatible types: 'TShortCut' and 'String'
  ShortCut.SonderTaste[1] := true;
  ShortCut.SonderTaste[2] := false;
  ShortCut.SonderTaste[3] := true;
  {...}
end;