Der Server führt nur " einen Befehl" aus ??

[hboy]

Delphi-Quellcode:

procedure TForm1.ServerSocket1ClientRead(Sender: TObject; 
  Socket: TCustomWinSocket); 
var 
  order : string; 

begin 

  order := socket.ReceiveText; 

  if order = 'öffnen' then 
  begin 
    mciSendString('SET CDAUDIO DOOR OPEN WAIT',nil,0, Self.Handle); //Öffnen 
  end; 

  if order = 'schließen' then 
  begin 
   mciSendString('SET CDAUDIO DOOR CLOSED WAIT',nil,0, Self.Handle); //Schließen 
  end; 

end;

Edit: ops