in Procedur funtioniert zweite Zeile nicht! warum?

[Hari]

hi @ all!


------------------------------------------------------------------

Delphi-Quellcode:

procedure TForm1.ServerSocket2ClientRead(Sender: TObject; 
Socket: TCustomWinSocket); 
var 
  order : string; 
begin 
  order := socket.ReceiveText; 
  if order = 'open' then 
  begin
    richedit1.lines.add('OPEN befehl wurde empfangen'); 
    if order = 'close' then
    begin 
      richedit1.lines.add('CLOSE befehl wurde empfangen'); 
    end; 
  end; 
end;

-------------------------------------------------------------------

ich möchte das diese zeile : if order = 'open' then begin richedit1.lines.add('CLOSE befehl wurde empfangen'); auch ausgeführt wird.
ich möchte mehrere befehle verwenden aber es funktioniert immer nur die erste (close) zeile.

das soll so funktionieren : wenn ich den text "open" sende dann soll er einen befehl ausführen hier zb. gibt er den text : "OPEN befehl wurde empfangen" in ein memo aus. und bei close sollte er dann "CLOSE befehl empfange" in ein memo ausgeben aber es geht nur der eine erste mit OPEN befehl empfangen"

Wer kann mir da weiter helfen??????????

danke im vorraus für jede hilfe Hari

[edit=Luckie]Delphi-Tags gesetzt. Mfg, Luckie[/edit]
[edit=Luckie]Quelltext formatiert. Mfg, Luckie[/edit]