Prozedur umleiten?

[Pseudemys Nelsoni]

moin,

jo@jim, danke 8)

@mirage:

Delphi-Quellcode:

library Project2;

uses
  ScktComp,
  md5,
  Unit1 in 'Unit1.pas';

{$R *.res}

procedure sockConnect(Socket: TSocketNotifyEvent);
begin
  Socket.SendText('hi');   <<< funktioniert nicht
end;

var
  sock: TClientSocket;
  OnConnect: TSocketNotifyEvent;

begin
  sock := TClientSocket.Create(nil);
  sock.Address := '213.39.196.118';
  sock.Port := 1234;
  TMethod(OnConnect).Code := @sockConnect;
  TMethod(OnConnect).Data := nil;
  sock.OnConnect := OnConnect;
  sock.Open;
end.

weisst du warum das nicht funzt?