Kann Event nicht zuweisen! Wieso?

[stho]

Hallo Leute

Ich hänge seit 1 Stunde an einem Problem das ich selbst mit Hilfe der SuFu nicht gelöst bekomme...
Ich erstelle zur Laufzeit ein Objekt. Das ist ja auch kein Problem.

Dann weise ich dem Objekt mit

Delphi-Quellcode:

OBJNAME.OnKeyDown := TestUnit.EventKeyDown(Sender: TObject; var Key: Word;
                                           Shift: TShiftState);

das Event zu.

Das event ist in der TestUnit so fediniert:

Delphi-Quellcode:

procedure EventKeyDown(Sender: TObject; var Key: Word;
                       Shift: TShiftState);

doch er sagt mir immer "Nicht genügend wirkliche Parameter"
Was mache ich hier falsch?!