Пишу мини компонент по работе с D&D через OLE , но при разрушении получаю ошибку Invalid pointer

[User32]

Начал написание компонента по мативам статьи http://delphinews.ru/booksnet/d3_lib/ch_04.htm
но при закрытии формы с примером получаю ошибку Invalid pointer
Что не так?

Сообщение отредактировано: User32 - 05.03.10, 09:43

Прикреплённый файлprimer3.zip (3.78 Кбайт, скачиваний: 122)

[DimaBr]

Может так ?

destructor TFileDropTarget.Destroy;
begin
  inherited Destroy;
end;
 
procedure TFileDropTarget.Unregisrer;
var WorkHandle: HWND;
begin
  if (FHandle <> 0) then begin
    WorkHandle := FHandle;
    FHandle := 0;
    ActiveX.CoLockObjectExternal(Self, False, True);
    ActiveX.RevokeDragDrop(WorkHandle);
    _Release;
  end;
end;
 
//--------------------------------------------------------------------
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  FDropTarget.Unregisrer;
end;

[User32]

Цитата DimaBr @ 05.03.10, 10:31

Может так ?

destructor TFileDropTarget.Destroy;
begin
  inherited Destroy;
end;
 
procedure TFileDropTarget.Unregisrer;
var WorkHandle: HWND;
begin
  if (FHandle <> 0) then begin
    WorkHandle := FHandle;
    FHandle := 0;
    ActiveX.CoLockObjectExternal(Self, False, True);
    ActiveX.RevokeDragDrop(WorkHandle);
    _Release;
  end;
end;
 
//--------------------------------------------------------------------
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  FDropTarget.Unregisrer;
end;

Оно самое. Спасибо.