ClientSocket и ConsoleApplication

[FanRa3]

как обмениваться пакетами через ClientSocket в Console Application?

type
  TCS = class(TObject)
  client:TClientSocket;
  procedure cs_Connect(Sender: TObject; Socket: TCustomWinSocket);
  procedure cs_Read(Sender: TObject; Socket: TCustomWinSocket);
end;

procedure TCS.cs_Connect(Sender: TObject; Socket: TCustomWinSocket);
begin
writeln('ololo');
readln;
ClientSocket1.Socket.SendText('LOGIN|'+id+'|'+sid+'|'+version+#10+#00);
end;

with obj do
begin
ClientSocket1.OnConnect:=cs_Connect;
ClientSocket1.OnRead:=cs_Read;
ClientSocket1.Host:=ip;
ClientSocket1.Port:=8080;
ClientSocket1.Active:=true;
writeln('haha');
end;

на OnConnect никак не реагирует. подскажите, где ошибка?

[FanRa3]

мда.. спасибо за помощь..