TMemoryStream присвоить строковой переменной

[inndim]

Здравствуйте!
Хочу реализовать следующее: Есть файл который занят другим процессом и постоянно дополняется, я хочу прочитать этот файл в память, а от туда в строковую переменную, но не знаю как, помогите пожалуйста примером кто знает.
я делаю примерно так:

procedure TForm1.Button1Click(Sender: TObject);
var
  Memory: TMemoryStream;
  s: AnsiString;
begin
  Memory := TMemoryStream.Create;
  try
    Memory.LoadFromFile('logfile.log');

\\а вот что делать дальше не знаю, собственно дальше нужно присвоить открытый файл строковой переменной s.

  finally
    Memory.Free;
  end;
end;

хочу сделать так, потому что прочитать этот файл другими способами не получается.

[Пепел Феникса]

procedure TForm1.Button1Click(Sender: TObject);
var
  Memory: TMemoryStream;
  s: AnsiString;
  i:longword;
  b:byte;
begin
  Memory := TMemoryStream.Create;
  s:='';
  try
    Memory.LoadFromFile('logfile.log');
    Memory.Seek(0,0);
    for i:=0 to Memory.Size do
     begin
      Memory.Read(b,1);
      s:=s+chr(b);
     end;
  finally
    Memory.Free;
  end;
end;

[mutabor]

Берете любой компонент типа (или со свойством) TStrings, например класс TStringList (не ищите на палитре, он не визуальный). Методом LoadFromStream загружаете в него ваш поток TMemoryStream, и в его (TStrings) свойстве Text и будет нужная вам строка.

[inndim]

Большое всем спасибо, всё работает!!!