Problem mit ClientSocket

[XHelp]

Versuche mal das hier

Delphi-Quellcode:

program Project1;

uses
  Windows,
  ScktComp,
  ExtCtrls,
  Sockets,
  Messages,
  SysUtils;

type TPrg = class
  procedure CS1Connect(Sender: TObject; Socket: TCustomWinSocket);
  procedure CS1Read(Sender: TObject; Socket: TCustomWinSocket);
end;

var
  WhEvent:THandle;
  CS1:TClientSocket;
  prg: TPrg;
  m:tagMSG;


procedure TPrg.CS1Read(Sender: TObject; Socket: TCustomWinSocket);
var
  c,t:string;
begin
  c:=Socket.ReceiveText;
  MessageBox(0,PChar(t),PChar(c),MB_OK);
end;

procedure TPrg.CS1Connect(Sender: TObject; Socket: TCustomWinSocket);
begin
  CS1.Socket.SendText('Servus');
end;


begin

  prg:=TPrg.Create;
  CS1:=TClientSocket.Create(nil);
  CS1.Port:=4567;
  CS1.Address:='127.0.0.1';
  CS1.OnConnect:=prg.CS1Connect;
  CS1.OnRead:=prg.CS1Read;
  CS1.Active:=true;


  while getMessage(m,0,0,0) do begin
    if m.message=WM_CLOSE then Break;
    DispatchMessage(m);
  end;

end.

Bei mir klappt das.