[Appolinariya_]

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

Код:

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;

[Verevkin]

выскакивает ошибка Unsafe type 'f: file of tbitmap'

вольный перевод: "не надо так!". TBitmap - это указатель, а его значение (4 байта) - адрес динамически созданного объекта в памяти. Нафига тебе файл, набитый случайными числами?

Как звучит оригинал задания?