FastNet und komische Fehler

Also ich versuche mit den FastNet comp's eine Art Fernbedinung zu schreiben nur gibt es im Grundprinzip schon einen Fehler!!

Code!!

__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
  msgServer->Listen( true );
  msgSocket->Connect();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)
{
  if ( msgSocket->Connected )
  { msgSocket->Disconnect();
    msgServer->Listen( false );
  }
  else
    ShowMessage( "Nicht verbunden" );

}

Sollte ja selbst erklärent sein!
Jedes mal beim ausführen bekomme ich die Meldung, beim disconnecten das der Socket nicht verbunden ist obwohl

msgSocket->Connected

true ist! Weiß jemand woran es liegt?