Проблемма сохранения потоков в файл

[EvgenMailRu]

Не могу сохранить массив из потоков в файл
постановка задачи в процедуре: в единственный файл кроме всего прочего сохранить массив (размер массив меняется) "Стримов". В массив предварительно было сохранено содержимое компонентов похожих на "edit" только более продвинутых.
Вот фрагмент исходного кода
(полный исходник не привожу из-за его размера и наличия "Спецкомпонентов")
-----------------------------------------


Var
k, FileHead.AmountEdit, TmpInt: Intrger; // FileHead - Record
MemStream: TMemoryStream;
TaskEditFields: Array [1..4000] Of TMemoryStream;
FStream: TFileStream;

--------------------
Begin
if FileExists(AFileName) then
if MessageDlg(Format('Файл %s вже існує. Замінити?', [AFileName]), mtConfirmation, [mbYes,mbNo], 0)=mrNo then exit;
try
try
FStream:=TFileStream.Create(AFileNa me,fmCreate);
MemStream:=TmemoryStream.Create;

--------------------
// А тут все и начинается...
for k:=1 to FileHead.AmountEdit
do
begin
TmpInt:= sizeof(TaskEditFields[k]);
{Почему-то во время выполнения программы Tmpint всегда=4 при том,
что в Taskeditfields[k] успешно записан большой блок данных, который
нормально считывается на любом этапе выполнения программы}
FStream.Write(TaskEditFields[k], sizeof(TaskEditFields[k]));
result:=true;
end;

----------------------------------------

Подскажите: что я не правильно делаю, и как правильно

[mutabor]

Var
k, FileHead.AmountEdit, TmpInt: Intrger; // FileHead - Record

странная запись, может так лучше?

Var 
k, TmpInt: Integer;
FileHead1: FileHead;

Почему-то во время выполнения программы Tmpint всегда=4

попробуйте поэксперементировать с sizeof(TMemoryStream) в разных случаях, один поток, массив, различные размеры и выявите в каких случаях она некорректно работает
result:=true; внутри цикла, это так надо?