procedure THiAsmClass.doShowDropDown(var _Data:TData; Index:word);
var
  sControl: PControl;
  Info: TComboBoxInfo;   
begin
  sControl := PControl(ToIntegerEvent(PHandle));
  //if not Assigned(sControl) then exit;
  //ZeroMemory(@Info, SizeOf(Info));
  Info.cbSize := SizeOf(Info);
  GetComboBoxInfo(sControl.Handle, Info);
  SendMessage(sControl.Handle, CB_SHOWDROPDOWN, ToInteger(_Data), 0);
  ShowScrollBar(Info.hwndList, SB_VERT, false);
end;