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

[Vader]

hallo,
hab da einen code, der server sollte zwei befehle ausführen,
zb. wenn in d. variable orders: öffnen abgelegt wird, soll er
das cdfach öffnen, wenn er in d. variable text: schließen abgelegt wird, soll er das cdfach schließen.
tut er aber nicht, wenn ich nur eine variable und einen
befehl benutze funktioniert es.

kann sein das beim zweiten aufruf des befehls dann alle beide
variableninhalte wie, öffnenschließen steht ????

wie müßte ich diesen code umschreiben.

Code:

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

  orders : string;
  Text : string;

begin

    orders := socket.ReceiveText;
    Text := socket.ReceiveText;

  if orders = 'öffnen' then

  begin

   
    mciSendString('SET CDAUDIO DOOR OPEN WAIT',nil,0, Self.Handle); //Öffnen

  end;


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


end;

mfg vader