Cambio del cursor en una sql
 

Hola, amigos.
Tengo una query la cual muestro el resultado en un grid.
Me interesa que en el momento q hace el query, q dura unos 10 secs, cambie el puntero del mouse al conocido "rejoj" y luego cuando aparezcan los datos en el grid vuelva al default. He probado lo siguiente pero no funciona.

Screen.Cursor := crHourGlass;
Application.Processmessages;
Query.Sql.Add('.....');
Query.Open;
Screen.Cursor := crDefault;

Gracias x vuestra invalorable ayuda.
Leo.

Si tiene que funcionar, el único problema que encuentro es que puedes volver el cursor a un estado inválido, yo haría algo distinto:

Código Delphi [-]
var
  OldCursor: TCursor;
begin
  OldCursor := Screen.Cursor;
  Screen.Cursor := crHourGlass;
  try
    { Tu código }
  finally
    Screen.Cursor := OldCursor;
  end;
end;

Saludos!