[PhoeniX]

Memo лишний.

Код:

var
  sl: TStringList;
begin
  sl := TStringList.Create;
  ms.Seek(0, 0); // Переходим в начало потока
  sl.LoadFromStream(ms); // Читаем из потока
  // Работа с sl.Text
  ms.Size = 0; // Сбрасываем содержимое потока
  sl.SaveToStream(ms); // Записываем обратно
  sl.Free; // Не забываем прибрать за собой
end;