[Alegun]

А вы так попробуйте

Код:

...
ms := TMemoryStream.Create;
try
   ms.Write($FF, 1);
finally
   ms.Free;
end;
...