Ответ от сервера как определить

[kroŧ]

Вот проблемка есть программа посылает данные на сервер через ClientSocket

 ClientSocket1.Port := StrToInt(edtPort.text);        //устанавливаем порт
 ClientSocket1.Address := edtIP.text;                 //IP адресс сервера  если на одном компе можно просто 192.168.1.2
 ClientSocket1.Active :=True;                         //Коннектимся

в ответ от сервера приходит команда
Com1p FGhyYhyH

Com1p это команда что подключён успешно и затем идут рендомные символы
нужно сделать чтобы если приходит команда Com1p
происходило действие отсылки данных на сервер
как это можно сделать ?

[Пепел Феникса]

событие OnRead(или OnClientRead)
оно возникает когда сокет принимает данные(в буфер)
соответсвенно вы можете их прочесть.

[kroŧ]

Пепел Феникса это понял я вот так например
serverMsg:=Socket.ReceiveText;
Memo3.Lines.Add('[Server]::' + utf8toansi(serverMsg)); //Нам сообщенице
а как сделать чтобы если собщение приходит текс1 рендомные символы длиной 9 символов выполнялось действие 1
если ответ от сервера текст 2 рендом сомволы длиной 9 символов то действие 2 ?

[Пепел Феникса]

ну так не тупо выводите текст, а анализируйте его, там у вас вроде текст до первого пробела(или конца строки если нет пробела) это команда.

[kroŧ]

Подскажите как скопировать последнию строку из memo в edit?

[Пепел Феникса]

Edit1.Text:=Memo1.Lines[Memo1.Lines.Count-1];