unit AsyncFreeRout;
interface

procedure AsyncFree(Instance: TObject);

implementation
uses
  Messages, Windows, Forms;

const
  WM_FREEOBJECT = WM_USER + 101;

type
  TDummyClass = class
    class function WndProc(var Message: TMessage): Boolean;
  end;

class function TDummyClass.WndProc(var Message: TMessage): Boolean;
begin
  Result := Message.Msg = WM_FREEOBJECT;
  if Result then TObject(Message.lParam).Free;
end;

procedure AsyncFree(Instance: TObject);
begin
  PostMessage(Application.Handle, WM_FREEOBJECT, 0, Integer(Instance));
end;

initialization
  Application.HookMainWindow(TDummyClass.WndProc);
finalization
  Application.UnhookMainWindow(TDummyClass.WndProc);
end.