procedure TObj.DoDestroy;
begin
  if fRefCount <> 0 then
  begin
    if not LongBool( fRefCount and 1) then
       Dec( fRefCount );
  end
  else
     Self.Destroy;
end;

{$IFDEF ASM_VERSION}
destructor TObj.Destroy;
asm
        PUSH      EAX
        CALL      Final
        POP       EAX
        XOR       EDX, EDX
        CALL      System.@FreeMem
        //CALL      System.@Dispose
end;
{$ELSE ASM_VERSION} //Pascal
destructor TObj.Destroy;
begin
  Final;
  {$IFDEF DEBUG_ENDSESSION}
  if EndSession_Initiated then
    LogFileOutput( GetStartDir + 'es_debug.txt',
                   'FINALLED: ' + Int2Hex( DWORD( Self ), 8 ) );
  {$ENDIF}

  inherited;
end;
{$ENDIF ASM_VERSION}

         if (Msg.wParam <> 0) then Exit;
         DoDrawDblBuffered( Self_ );
//         Rslt := 0;
//         Result := True;

#sha
Add(MainForm,4840157,35,42)
{
 Left=10
 Top=10
 Width=313
 Height=202
 Position=1
 link(onKeyUp,4701914:doRefresh,[])
}
Add(PaintBox,4701914,98,63)
{
 Left=85
 Top=10
 Width=210
 Height=140
 Transparent=0
 link(onBeforeDraw,15989047:doEvent1,[])
}
Add(Beep,12578231,266,70)
{
 Freq=0
 Duration=100
}
Add(Beep,5357147,210,63)
{
 Freq=300
 Duration=100
}
Add(Hub,15989047,154,63)
{
 link(onEvent1,5357147:doBeep,[])
 link(onEvent2,12578231:doBeep,[])
}

#pas
         ValidateRect( Self_.fHandle, nil ); // как будто этому контролу Invalidate и не делали
          if not Self_DblBufTopParent.fDblBufPainting then
          begin
            Self_.DblBufTopParent.Invalidate; //но делали вместо него этому !!!