[marcoszorrilla]

Prueba con algo similar a este código:

procedure TForm1.Button1Click(Sender: TObject);
Var
OldCursor:TCursor;
begin
OldCursor:=Screen.Cursor;
Screen.cursor:=crHourGlass;
....bla...bla...  //aqui las acciones a realizar
Screen.Cursor:=OldCursor;
end;

Un Saludo.