Ereignis in einer Unit zuweisen

[Int3g3r]

Guten Tag,

Ich möchte eine Unit schreiben die ich danach bei anderen Projekten wieder verwenden kann.
Diese Unit benutzt TidTCPServer.

Bei dem TidTCPServer gibt es ein OnExecute Event/Ereignis.

Wie lässt sich ein Ereignis im Programmcode zuweisen ? (Siehe Bild)

Da ich mich in einer Unit befinde kann ich den Objektinspektor nicht benutzen.
Ich möchte kein DataModul verwenden.
Dies Hilft meinem verständniss der Programmiersprachem, daher möchte ich dies hier ausprogrammieren.

Delphi-Quellcode:

procedure TServer.tcpServerExecute(AContext: TIdContext);
begin
   try
      AContext.Connection.IOHandler.DefStringEncoding := IndyTextEncoding_UTF8; // uses IdGlobal
      AContext.Connection.IOHandler.ReadStrings(memMessage.Lines);
      AContext.Connection.IOHandler.WriteLn('#OK#');
   finally
      AContext.Connection.Disconnect;
   end;
end;

Danke für die Hilfe,
Int3g3r