Нарушение прав доступа при освобождении переменной TBitmap - переменная битмапа по-прежнему назначается после освобождения?

Question

У меня есть этот код в VCL Forms Application:

implementation 

{$R *.dfm} 

var 
    MyBitmap: TBitmap; 

procedure TFormMain.FormCreate(Sender: TObject); 
begin 
    MyBitmap := TBitmap.Create; 
end; 

procedure TFormMain.FormDestroy(Sender: TObject); 
begin 
    if Assigned(MyBitmap) then 
    MyBitmap.Free; 
end; 

procedure TFormMain.Button1Click(Sender: TObject); 
begin 
    if Assigned(MyBitmap) then 
    MyBitmap.Free; 
end; 

При нажатии на кнопку второй раз, я получаю нарушение прав доступа в MyBitmap.Free; в обработчик щелчка кнопки. Но MyBitmap больше не следует назначать после первого нажатия кнопки. Итак, почему условие if Assigned(MyBitmap) then не работает над второй кнопкой, когда она, очевидно, работает на первой кнопке?

Delphi 10,1 Berlin Update 2

Answer 1

Assigned функция проверяет только указатель будет Nil. Он не выполняет проверку, указывает ли он на существующий объект или нет. Вы должны установить его на Nil, освободив его, чтобы получить функцию Assigned, как вы ожидаете. FreeAndNil выполняет обе инструкции.