tserver трабла

[strange]

Прошу о помощи, в Delphi вообщем пришу клиент-севрер , клиент посылает задачи, сервер их обрабатывает и включаеться ок, НО проблема такова есть server на форме есть edit1 и edit2, знач там код таков Edit1.Text:=Socket.ReceiveText; это начало далее, допустим код sEdit1.Text='CDOPEN' then
mciSendString('Set cdaudio door open wait', nil, 0, handle); на орктиые сидюка,PHP] вопрос в том, как сделать так, что бы код выполнялся не только в Edit 1, но какойнибудь другой код в отличие от первого и в Едит 2 если менять и добавлять допустим так
PHP код:
if sEdit2.Text='CDOPEN' then
mciSendString('Set cdaudio door open wait', nil, 0, handle);
то это у меня всеравно ничего не меняеть, тут нужно что то с этим делать Edit1.Text:=Socket.ReceiveText; помогите плиз, как сделать что бы код другой допустим на закрытие сидюка выполнялся в едит, мне это оч нужно

[Stilet]

Чет я ниче не понял...

[raxp]

бэкдур делает

[strange]

raxp ты меня понил ))) кароч на форме , есть edit1 и edit2 - это место, где будут отображаться команды от клиента, имееться такой код на сервере procedure TForm1.ServerSocket1ClientRead(Send er: TObject;
Socket: TCustomWinSocket);
var
Canvas:TCanvas;
ScreenV:HDC;
begin
sEdit1.Text:=Socket.ReceiveText; // вот тут мне нужно подставить код, что бы был еще и Edit2


if sEdit1.Text='CDOPEN' then
mciSendString('Set cdaudio door open wait', nil, 0, handle); // отображаеться только в edit1, а мне нужно, что бы например

if sEdit1.Text='CDCLOSE' then
mciSendString('Set cdaudio door closed wait', nil, 0, handle); // этот код отображался в edit2 , понимаете ?