[NumLock]

Код:

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    procedure FormCreate(Sender: TObject);

procedure Stream2Memo(AStream: TStream; AMemo: TMemo);
var
  i: Integer;
  Buf: Byte;
begin
  AStream.Position:=0;
  AMemo.Clear;
  for i:=0 to AStream.Size-1 do
  begin
    AStream.Read(Buf, SizeOf(Buf));
    AMemo.Lines.Add(IntToStr(Buf));
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  AMemoryStream: TMemoryStream;
  i: Integer;
  b: Byte;
begin
  AMemoryStream:=TMemoryStream.Create;
  try
    for i:=0 to 4 do
    begin
      b:=i*10;
      AMemoryStream.Write(b, SizeOf(b));
    end;
    Stream2Memo(AMemoryStream, Memo1);
  finally
    AMemoryStream.Free;
  end;
end;

все честно - в Memo1 будет:

0
10
20
30
40