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

procedure Register(Event: TOnKeyDownEvent)
  wenn schon nicht regesttiert, dann...
    trage das Event in die Liste ein
procedure-end

procedure Unregister(Event: TOnKeyDownEvent)
  zähle alle Elemente der Liste rückwärts durch...
    wenn das aktuelle List-Event gleich dem Event, dann...
      lösche den aktuellen Listeneintrag
procedure-end					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:

const
  IM_EVENT_KEY_DOWN  = 0;
  IM_EVENT_KEY_UP    = 1;
  IM_EVENT_KEY_PRESS = 2; 

var
  fEvents: array[0..2] of TList;

///////////////////////////////////////////////////////////////////////////////////
//regestriert ein KeyPress-Event
//@Event: Event das regestriert werden soll;
procedure TInputManager.RegisterKeyPressEvent(Event: TKeyPressEvent);
var i: Integer;
begin
  if not Assigned(Event) then exit;
  for i := 0 to fEvents[IM_EVENT_KEY_PRESS].Count-1 do
    if fEvents[IM_EVENT_KEY_PRESS][i] = @Event then exit;
  fEvents[IM_EVENT_KEY_PRESS].Add(@Event);
end;

///////////////////////////////////////////////////////////////////////////////////
//hebt die Regestrierung für ein KeyPress-Event auf
//@Event: Event dessen Regestrierung entfernt werden soll;
procedure TInputManager.UnregisterKeyPressEvent(Event: TKeyPressEvent);
var i: Integer;
begin
  if not Assigned(Event) then exit;
  for i := fEvents[IM_EVENT_KEY_PRESS].Count-1 downto 0 do
    if fEvents[IM_EVENT_KEY_PRESS][i] = @Event then
      fEvents[IM_EVENT_KEY_PRESS].Delete(i); 
end;

///////////////////////////////////////////////////////////////////////////////////
//Sendet das KeyDown-Event an alle Clients
procedure TInputManager.KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
var i: Integer;
begin
  for i := 0 to fEvents[IM_EVENT_KEY_DOWN].Count-1 do
    PKeyEvent(fEvents[IM_EVENT_KEY_DOWN][i])^(self, Key, Shift);
end;					

1:
2:
3:
4:
5:
6:

type
    TMyKeyEvent = procedure(foo:Integer; bar: Integer; baz: Integer) of object;
    TMyEventTypes = (metKeyDown, metKeyPress, metKeyUp);
    TMyEventRecord = packed record
        events: array [TMyEventTypes] of TMyKeyEvent;
    end;					

1:
2:
3:
4:
5:
6:
7:

class procedure TInputManager.InitEventRecord(out er: TMyEventRecord);
var
    et: TMyEventTypes;
begin
    for et := Low(er.events) to High(er.events) do
        er.events[et] := nil;
end;