переместить память из TMemoryStream в промежуточный буфер и в буфере найти слова

[Дядя Фёдор]

Привет,
у меня вот какая проблема мне надо переместить память из TMemoryStream в промежуточный буфер и в буфере надо наидти кое какие слова(Content-Length: xxx длинну содержимого в HTTP ответе) а потом этот буфер надо записать в файл.
Если я сразу копирую из TMemoryStream в TFileStream то данные целые, а если я из TMemoryStream в Буфер а потом в TFileStream то половина данных ноли(HEX значения). что мне использовать в качестве буфера? я использую: TBuff:array[0..$ffff] of byte;

[rpy3uH]

может просто не хватает места в буфере TBuff:array[0..$ffff] of byte?
увеличь его в два раза

[BOBAH13]

а почему не подходит

var Buffer: Pointer;

getmem(Buffer, длина буфера);
writefile(file, buffer^, длина буфера, numbyte, NIL);
freemem(Buffer);

все пашет в дельфи полюбому