> В Edit1.Text сам вписываю


Ужас какой ..
Т.е. если бы не вписал, а просто Edit.Text сразу передавал, то по-твоему строка не передалась бы ?

Все бы передалось :)

> Все бы передалось


Так а накой же тогда "вписываешь", если "все бы передалось" ?

Я имею ввиду, что со стороны клиента все передается. А на стороне сервера, читаются первые 2 символа и все.

Ну и читай себе на здоровье на стороне сервера "первые 2 символа и все", в чем проблема-то ?

а мне нужно читать первые 2 и все остальные

s := AContext.Connection.Socket.ReadLn(enUTF8);
FirstSymbol := s[1]; // вот тебе первый символ
SecondSymbol := s[2]; // вот второй
NextSymbols := Copy(s, 3, Length(s)-2); // а вот тебе все остальные

А как сделать такое же, но без ReadLn?

А почему собственно WriteLn ?

Дак это без разницы. Предполагается, что к данному серверу будут коннектица клиенты написаные не на Delphi. Поэтому не хочется привязываться к чтению строки, а смотреть сколько символов сообщение.

> Дак это без разницы


Как это "без разницы" ?

WriteLn передает постфикс - CRLF