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

type...
  procedure steuerung(Sender: TObject; var Key: Word;
      Shift: TShiftState);
.
.
.
implementation

procedure TForm1.steuerung(Sender: TObject; var Key: word;
  Shift: TShiftState);
Begin
.
.
if (ssalt in shift) and (ssCtrl in shift) then
.
.
end;					

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

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var
  keyCount: Integer;
begin
  Label1.Caption := '';
  KeyArray[key] := True;

  for keyCount := 0 To 255 Do
  begin
    if KeyArray[keyCount] = True Then Label1.Caption := Label1.Caption + Chr(keyCount);
  end;
end;

procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  KeyArray[key] := False;
end;