[vladimir01101988]

Подскажите пожалуйста, пытаюсь записать поток в файл, но файл оказывается пустой.

Код:

procedure TForm1.Button4Click(Sender: TObject);
 var
  p: TStream;
  begin
   for i:= 1 to 10 do //заполняю массив
    n[i]:= (i)*(-100);
      p := TFileStream.Create('D:\file2.txt', fmCreate or fmOpenRead or fmOpenWrite);
       try
         p.WriteBuffer(n, SizeOf(n));//записываю в поток, поток уже пишет в файл
     finally
    p.Free;
  end;
end;