Cambio del cursor en una sql

[lbidi]

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.

[delphi.com.ar]

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:

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


Saludos!