Prozedur umleiten?

[negaH]

eleganter geht es so:

Delphi-Quellcode:

type
  THandler = class(TObject)
    class procedure OnConnect(Sender: TObject; Socket: TCustomWinSocket);
  end;

class procedure THandler.OnConnect(Sender: TObject; Socket: TCustomWinSocket);
begin
// Code
end;


begin
  Sock := TClientSocket.Create(nil);
  try
    Sock.Address := '213.39.196.118';
    Sock.Port := 1234;
    Sock.OnConnect := THandler.OnConnect;
    Sock.Open;
....
  finally
    Sock.free;
  end;
end;

Gruß Hagen