Tastenkombinationen ohne, das Fenster im Focus ist

[xZise]

Also ich habe das jetzt so umgesetzt, funzt aber net:

(PS: Hotkeys)

Delphi-Quellcode:

[...]
type
  TWMHotkey = record
    Msg: Cardinal;
    idHotKey: Word;
    Modifiers: Integer;
    VirtKey: Integer;
  end;

const ID = $FF;

type
  TForm1 = class(TForm)
[...]
  private
[...]
    procedure WMHotKey(var Msg: TWMHotKey); Message WM_HOTKEY;
[...]

procedure TForm1.WMHotKey(Var Msg: TWMHotkey);
begin
  case Msg.IdHotKey of
    ID : Showmessage('test');
    ID + 1 : Showmessage('test2');
  end;
  inherited;
end;

procedure TForm1.GoClick(Sender: TObject);
var
  i : Integer;
  ok: longbool;
begin
[...]
  for i := 0 to 8 do begin
    ok := RegisterHotKey(Form1.Handle, ID + i, MOD_control, Ord(i));
    if not ok then
      Showmessage('Tastenkombination <Strg> + <' + IntToStr(i) + '> nicht möglich zu setzen!');
  end;
end;

[...]

end.

Das ist nach dem Tutorial erstellt.

Ich bekomme weder eine Nachricht, dass es nicht gesetzt werden konnte, noch dass die Tasten gedrückt wurden.
Ich möchte die Tastenkombination:
<Strg> + <0 (bis) 8>