нужно найти ошибку в коде

[helldog]

при передаче команд с TCPClient на TCPSocket происходит зависание клиента, кто-нить знает где ошибка?
КОд на прием:

 procedure TForm1.TcpServer1Accept(Sender: TObject;
  ClientSocket: TCustomIpClient);
begin
 if ClientSocket.Receiveln = 'hello'  then ShowMessage('hello');
end;

код отправки :

procedure TForm1.Button3Click(Sender: TObject);
begin
TcpClient1.Connect;
TcpClient1.Sendln(Edit2.Text);
Label1.Caption := TcpClient1.Receiveln();
TcpClient1.Disconnect;
end;

поможет кто найти проблемку?При простом коннекте( без передачи команд) все работает, но при передачи команды, клиент зависает(((

И езе , пытаюсь удаленно отрыть дисковод командой

mciSendString('set cdaudio door open wait',nil,0,0)

, ничего не происходит, но команда ShowMessage() прекрасно работает.