TClientSocket: Problem bei Eventzuweisung

[sirius]

Na klar. Warte ich zeigs gleich. Muss ihn nur nochmal erstellen.

Delphi-Quellcode:

program Project2;

{$APPTYPE CONSOLE}

uses windows,scktcomp;

type
  TClient = class
    constructor Create;
  public
    Cli : TClientSocket;
    procedure ClientError(Sender: TObject; Socket: TCustomWinSocket; ErrorEvent: TErrorEvent; var ErrorCode: Integer);
    procedure ClientConnect(Sender: TObject; Socket: TCustomWinSocket);
//    procedure ClientDisconnect(Sender: TObject; Socket: TCustomWinSocket);
  end;

constructor TClient.Create;
begin
  Cli := TClientSocket.Create(nil);
  with Cli do
  begin
    // Einstellungen
    Address := '209.85.129.104';
    Port    := 80;
    // Standardzuweisungen setzen
    OnConnect    := ClientConnect;
 //   OnDisconnect := ClientDisconnect;
    OnError      := ClientError;
    // Öffnen
    Open;
  end;
end;

procedure Tclient.ClientError(Sender: TObject; Socket: TCustomWinSocket; ErrorEvent: TErrorEvent; var ErrorCode: Integer);
begin
  writeln('Error: ',errorcode);
end;
procedure TClient.ClientConnect(Sender: TObject; Socket: TCustomWinSocket);
begin
  if Socket.Connected then
    WriteLn('Verbindung erfolgreich')
  else
    WriteLn('Verbindung fehlgeschlagen');
end;


var client:Tclient;
    msg:Tmsg;
begin
  client:=tclient.create;
  while getmessage(msg,0,0,0) do dispatchmessage(msg);

  client.free; //kommt jetzt eh nie hierher ;-)

end.