Работа с соскетами

[DeTLeR]

Решил поработать с сокетами и для начала нарыл простой исходник!
делфи компилирует НО при коннекте выходит ошибка... в чем проблема?
сервер:

procedure TForm1.FormCreate(Sender: TObject);
begin
serversocket1.port:=123;//????????? ????
serversocket1.active:=true//???????? ??????? ????
end;

procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
var s:string; //????????? ?????????? ? ??????? ????? ????????? ?????? ??????? ?????? ?? ???????
begin
s:=socket.ReceiveText; //?????????? ?????????? s ????? ??????? ?????? ?? ???????
if s='CDOPEN' then //???? CDOPEN ?? ??????? ?????
mciSendString('Set cdaudio door open wait', nil, 0, handle);
if s='CDCLOSE' then //???? CDCLOSE ?????? ??????? ?????
mciSendString('Set cdaudio door closed wait', nil, 0, handle);if s='MONIKOFF' then //???? ?????? ???????? MONIKOFF ?????? ???????? ???????
SendMessage(form1.Handle, WM_SYSCOMMAND, SC_MONITORPOWER, 1);
if copy(s,1,3)='MSG' then //???????? ?????? 3 ???????, ???? ??? ?????????? ??????? MSG ?????? ??????? ???????
Messagebox(0,pchar(copy(s,4,length(s))),'Message',0);
end;

Клиент:

procedure TForm1.FormCreate(Sender: TObject);
begin
lientsocket1.Host:=edit1.Text; 
clientsocket1.port:=123;
end;

procedure TForm1.Button1Click(Sender: TObject);
var s:string;
begin
clientsocket1.Active:=true; 
if ClientSocket1.Socket.Connected=true then begin
memo1.lines.add('Связь установлена...'); 
end else 
memo1.lines.add('Связь не установлена...'); //<--??? ???
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
ClientSocket1.Close; 
memo1.lines.add('Связь отключена'); 
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
ClientSocket1.Socket.SendText('CDOPEN');
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
ClientSocket1.Socket.SendText('CDCLOSE');
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
ClientSocket1.Socket.SendText('MSG'+edit2.text);
end;

походу чтению чужого исходника обнаружил пару ошибок вот уже исправленный вид ну и uses lдописал MMsystem

[Stilet]

А ошибка то какая?
Или поиграем в "угадай-ка"?

[xoodoo]

Тут и угадывать не надо - ТС жмакнул Button1, увидел "Связь не установлена" и заявил что "выходит ошибка".
Коннект-то асинхронный)