Процедура ReadStrings
procedure ReadStrings(var AValue: TStrings; AReadLinesCount: Integer = -1);
Процедура ReadStrings читает указанное количество строк, разделенных символом EOLs из соединения. Если количество строк не указано, то читается первое 32-битное целое из соединение и оно используется далее как количество строк.