Mouse Oculto en evento "ComboBox.DroppedDown:=True;"

[martini002]

Saludos Amigos, donde quiera que se encuentren

Tengo un problemita con un ComboBox,
buscando encontre solo esto:
http://www.clubdelphi.com/foros/arch...p?t-25459.html

La cuestion es, que cuando esta propiedad se activa
"ComboBox.DroppedDown:=True;" para mostrar la lista
del ComboBox, en el evento OnChange, el Mouse se desaparece,
el puntero, funciona tal cual como Carlos Arevalo lo explica alli
funciona solo en la lista si lo pasas por casualidad encima de este,
presionas ESC y vuelve a aparecer, en cambio cuando presiono
el boton para desplegar la lista, no se desaparece,
he usado "ShowCursor(True);" pero no tiene funcion alli.

les dejo un extracto del codigo a ver si ustedes ven algo extraño
Gracias infinitas

Código Delphi [-]
procedure TForm1.BoxCodigoChange(Sender: TObject);
Var
  Articulo:String;
begin
  with ZQuery1 do
      begin
        Close;
        with SQL do
          begin
            Clear;
            Add('Select Articulo From Inventario Where Articulo Like '+QuotedStr('%'+BoxCodigo.Text+'%')+' Order by Articulo');
            Open;
            BoxCodigo.Items.Clear;
            First;//Te posicionas en el primer registro
            While Not(ZQuery1.Eof) do //Recorres mientras no termine de leer todos los registros de la consulta
              begin
                Articulo:= ZQuery1.Fields[0].AsString;
                BoxCodigo.Items.Add(Articulo);
                Next;//Pasas al siguiente registro
              end;
          end;
      end;
  BoxCodigo.SelStart := Length(BoxCodigo.Text);//Posiciona el cursor en la ultima posicion
  BoxCodigo.DroppedDown:=True;
  ShowCursor(True);
end;