Проблема с ServerSocket

В чем может быть проблема? отправляю команду с сокета клиента на сервер:

команда с edit4:

 

Код абсолютно неправильный.
После

Code:

var
s,m: string;

Должен идти begin.
Должно быть не

Code:

m:= (RichEdit1.Text);

А

Code:

m := RichEdit1.Text;

 

да и не в этом дела, выдает ошибку в кернет32

 

Тогда выложи нормальный код, который ты компилируешь.