procedure TForm1.IdTCPServer1Execute(AContext: TIdContext);
var
 s, r: WideString;
begin
 try
    AContext.Connection.IOHandler.CheckForDisconnect(True, True);
    if AContext.Connection.Connected then
      begin
        s := AContext.Connection.Socket.ReadLn(enUTF8);
         ............................ // Делаем чего-то
            AContext.Connection.Socket.WriteLn(_r, GetEncoding);
      end;
 except
       on E: Exception do
         begin
           if E.ClassType <> EIdConnClosedGracefully then
             if E.ClassName <> 'EIdNotConnected' then
               if E.ClassName <> 'EIdClosedSocket' then
                   ShowMessage(E.ClassName + ': ' + E.Message);
         end;
 end;
end;

AContext.Connection.Socket.ReadString(AButes: Integer; [encoding])

L := AContext.Connection.Socket.ReadString(2, enUTF8);
ShowMessage(L);
M := AContext.Connection.Socket.ReadString(StrToInt(L), enUTF8);
ShowMessage(M);

IdTCPClient1.Connection.Socket.WriteLn(Edit1.Text, enUTF8);