[Appolinariya_]

сохраняю стек, содержащий состояние картинки в файл, а потом загружаю его обратно, чтобы была возможность отмены действий на картинке
выскакивает ошибка Unsafe type 'f: file of tbitmap'
что не так, как ее исправить?

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); begin  AssignFile(f,'File1.pnt');  Rewrite(f);  while Nazad<>nil do  begin   DeleteN(Nazad,RN1);   write(f,RN1);  end;  CloseFile(f);  AssignFile(f1,'File2.pnt');  Rewrite(f1);  while Vpered<>nil do  begin   DeleteN(Vpered,RV1);   write(f1,RV1);  end;  CloseFile(f1); end;   procedure TForm1.mniN8Click(Sender: TObject); begin  AssignFile(f,'File1.pnt');  Reset(f);  while not Eof(f) do  begin   read(f,RN1);   if Nazad <> nil then    InsertN(Nazad,RN1)   else    make(Nazad,RN1);  end;  CloseFile(f);  AssignFile(f1,'File2.pnt');  Reset(f1);  while not Eof(f1) do  begin   read(f1,RV1);   if Vpered <> nil then    InsertN(Vpered,RV1)   else    make(Vpered,RV1);  end;  CloseFile(f1);  if Nazad<>nil then   btn6.Enabled:=True;  if Vpered<>nil then   btn7.Enabled:=True; end;