pero te sale algún icono en el trascurso de la consulta??? si es asi y mirando este
post, veo que según
Roman lo que hace es cambiar el cursor tipo que lanza una consulta:
Código Delphi
[-]Screen.Cursors[crSQLWait] := Screen.Cursors[crHourglass];
y en tu caso sería:
Código Delphi
[-]Screen.Cursors[crSQLWait] := CreateIconIndirect(iconInfo);
si hay alguien el foro que nos pueda ayudar más....