#pas
      for i := 0 to _prop_MSTControl.clistcount - 1 do
        s := s + _prop_MSTControl.clistitems(i) + _Dlm

#pas
     with sControl{$ifndef F_P}^{$endif} do
      s := ThiMTStrTbl(Tag).FullSaveColumns(_Dlm)

        if (HD_NOTIFY(Pointer(Msg.LParam)^).Hdr.code = HDN_ITEMCHANGEDW) then

        case HD_NOTIFY(Pointer(Msg.LParam)^).Hdr.code of 
         HDN_ITEMCHANGEDW:

_hi_OnEvent(_event_onChangeWidth, ind);

  HDN_DIVIDERDBLCLICKW = HDN_FIRST - 25;
  HDN_BEGINTRACKW = HDN_FIRST - 26;


         HDN_BEGINTRACKW,
         HDN_DIVIDERDBLCLICKW : begin
                                 Rslt := 1;
                                 Result := True;
                                end;