1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:

TServer = class
  FTCPServer: TIdTCPServer;
  ...
private
  procedure HandleOnExecute(AThread: TIdPeerThread);
  procedure Foo;
  ...
end;

...
FTCPServer.OnExecute := HandleOnExecute;
...

procedure TServer.HandleOnExecute(AThread: TIdPeerThread);
begin
  Foo;
end;

procedure TServer.Foo;
begin
  ...
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:

TDebugEvent = procedure (Text: string);

TServer = class
  FTCPServer: TIdTCPServer;
  FOnDebug: TDebugEvent;
private
  procedure HandleOnExecute(AThread: TIdPeerThread);
  procedure Debug(Text: string);
  // weitere Methoden
public
  constructor create;
  property OnDebug: TDebugEvent read FOnDebug write FOnDebug;
end;

constructor TServer.create;
begin
  // TCP Server wird erstellt und aktiviert, usw...

  FTCPServer.OnExecute := HandleOnExecute;
end;

procedure TServer.HandleOnExecute(AThread: TIdPeerThread);
begin
  // hier wird mit privaten TServer Methoden die 
  // Anfrage verarbeitet und ne Antwort gesendet

  Debug('Debugmeldung...');
end;

procedure TServer.Debug(Text: string);
begin
  if assigned(FOnDebug) then
    FOnDebug(Text);
end;