Problema con TMemoryStream

[Baixa]

El código propuesto es únicamente de ejemplo y su finalidad es mostrar el esquema básico de trabajo que utiliza mi aplicación (interior del bucle); pero no, el problema no reside donde me comentas, lo mismo da pasarle como parámetro un 4 que SizeOf(integer) (función a la cual sí se le puede pasar tipos). Gracias de todas formas.

procedure TForm1.Button1Click(Sender: TObject);
var
ms: TMemoryStream;
nI,nAux: integer;
begin
nAux:=69;
for nI:=0 to 10000 do
begin
ms:=TMemoryStream.Create;
ms.Clear;
ms.SetSize(4);
ms.Write(nAux,4); // 4 = tamaño en bytes que ocupa el integer nAux
end;
end;