destructor TToolTip.Destroy; var I: Integer; tmpTipInfo: PTipInfo; begin if fTipHandle <> 0 then CloseWindow(fTipHandle); for I := Flist.Count - 1 downto 0 do // Iterate begin tmpTipInfo := PTipInfo(FList.Items[i]); Dispose(tmpTipInfo); end; // for Flist.Free; ApplicationEvents.Free; DeallocateHWnd(fWindowHandle); inherited Destroy; end;