Du mußt deine Ereignisfunktion in einem Objekt ablegen.
Also Diese in einer Klasse definiert haben.
Delphi-Quellcode:
type irgendas = class(...)
procedure SPortRxClusterEvent(Sender: TObject);
end;
PS: setze deine Delphicodes bitte in [delphi]-Tags (du kannst dieses über den Edit-Button deines Beitrags noch ändern)