[Last Living Man]

Здравствуйте.
Пытаюсь заполнить TMemoryStream одним числом таким способом:

Код:

var MemStream: TMemoryStream;
     i, buf:byte;
begin
  try
    MemStream := TMemoryStream.Create;
    buf := 5;
    for i := 0 to 4 do
    begin
      MemStream.Write(buf, SizeOf(buf));
    end;
    StreamToMemo(MemStream, Memo);
  finally
    MemStream.Free;
  end;
end;

Смотрю как она выглядит функцией StreamToMemo, а там вместо чисел buf одни нули. Также при копировании ее в любую другую TStream выдает ошибку Stream read error.
Функция StreamToMemo испробована на TFileStream и работает без косяков.