Mouse con Texto Orbital

[Deiv]

Hola,
En Febrero de este año pregunté en el foro Incluir Cursor Animado especial, en ese entonces mis conocimientos de autodidacta y novato en Delphi no estaban muy compenetrados (y aún me considero novato, modestia aparte) hasta que empecé a practicar hace un par de semanas atrás la Construcción de Páginas Web, y en ese trayecto buscando ejemplos de JavaScript, encuentro el código de "Texto Orbital" en MundoJavaScript.com aquel que había consultado en el Foro exponiendo un ejemplo de la página "Massy". He abierto un nuevo hilo por 2 razones: No quería que se pierda en "Varios" y quise darle un mejor título al Post.
Los consejos de los amigos:

Empezado por dec

En realidad no se trata de un cursor animado, sino que el efecto que puedes ver alrededor del cursor lo lleva a cabo cierto código JavaScript, el cual, por cierto, no funciona en FireFox (y no pude verlo sino en Internet Explorer).
No sé si partiendo de ese JavaScript podrías hacer algo similar en Delphi. O bastaría con que pusieras un cursor animado, tal cual. Si vas por lo primero, obtén el código fuente JavaScript de la página Web que mencionas y que se relaciona con el efecto que dices. Ponte a elo y trataremos de ayudarte.

o de:

Empezado por Neftali

Lo más aproximado que se me ocurre es que sustituyas todos los cursores estandard, por los correspondientes con el giro:
Mi opinión: Mucho trabajo, y poco beneficio. Además, como tú bien comentas en ese supuesto, se perdería la secuencia de giro al cambiar de cursor.

Me dejaron con una información que a la larga debía averiguar.
Bueno, HOY después de analizar el ejemplo de JavaScript "Texto Orbital" y relacionando con la función de Seoane EllipsePoint, he llegado a intentar realizar ese mismo efecto y acomodarlo en Delphi como Cursor animado especial con el siguiente código:
(Colocar la propiedad Cursor del Button1 a crHandPoint)

Código Delphi [-]
type
  TForm1 = class(TForm)
    Button1: TButton;
    Timer1: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Button1Click(Sender: TObject);
  private
    Texto:string;
    MouseX, MouseY:integer;
    Letra: array[0..50] of TStaticText;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  currStep:extended=0;

implementation

{$R *.dfm}

function EllipsePoint(X1,Y1,X2,Y2,Largo: Integer; currStep, Angulo: Double): TPoint;
var
  Cx,Cy,A,B: Double;
begin
  A:= abs(X2-X1)/2;
  B:= abs(Y2-Y1)/2;
  Cx:= (X1+X2)/2;
  Cy:= (Y1+Y2)/2;
  Result.X:= Trunc(Cx + A * cos(currStep+360/Largo*Angulo));
  Result.Y:= Trunc(Cy + B * sin(currStep+360/Largo*Angulo));
end;

procedure TForm1.FormCreate(Sender: TObject);
var
   n, Espacio:integer;
begin
  Texto:='Cursor Animado-';
  Espacio:=0;
  for n:=0 to length(Texto) do
     begin
       Letra[n]:= TStaticText.Create(Self);
       with Letra[n] do
         begin
           Parent:= Self;
           Top:= 10;
           Left:= Espacio;
           Caption:= Texto[n];
           autosize:=true;
           Font.Color:= clBlue;
           Font.Name:='Arial';
           Font.Size:=10;
           Alignment:=taCenter;
         end;
         Espacio:=Espacio+Letra[n].Width;
     end;
     Timer1.Enabled:=true;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
  i:integer;
  P: TPoint;
begin
  for i:= 0 to length(Texto) do
  begin
    P:= EllipsePoint(10,10,150,70,length(Texto),currStep,(Pi*i)/180);
    Letra[length(Texto)-i].Left:= MouseX + P.X - 80;
    Letra[length(Texto)-i].Top := MouseY + P.Y - 40;
    Application.ProcessMessages;
  end;
  currStep:=currStep+0.03;
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  MouseX:= x;
  MouseY:= y;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
   timer1.Enabled:=false;
end;

end.

Bueno, este ejemplo todavía está en etapa de construcción, falta por ejemplo que el fondo del texto orbital la fuente y el tamaño del texto sea más pequeño y hay muchas cosas más por corregir imagino, en la cual estaré atento a vuestra experiencia.
Mis preguntas:
1.- Respondiendo a dec: He intentado adaptar dicho código JavaScript en un TPaintBox incluido en un TPanel, pero todo el área del TPanel se sobrepone a los objetos en el Form al movimiento del mouse, mala idea. Luego intenté realizar en un TLabel, pero este se situa detras de los objetos al movimiento del mouse, segunda mala idea, por ello decidí (a lo que mas se aproximaba) en un TStaticText. Pero aún así este componente me mueve cuadros pequeños por cada letra y es notorio cuando se posiciona sobre otro objeto. Y más aún si el texto contiene un string bastante largo es más notorio todo ello en el movimiento orbital.
¿Conocen de algún otro componente parecido al TStaticText que se sobreponga al los objetos pero en forma Transparente? la propiedad transparente aquí no me funciona.

2.- Respondiendo a Neftali: Ahora ya no hay problema con el cursor al posicionarse sobre un objeto que tenga la propiedad por ejemplo en mi caso Button1.Cursor:=crHandPoint; el Texto no pierde la secuencia de giro, pero..... pierde el "Centro" de giro, es decir, mientras el cursor está posicionado en el objeto [s]el Texto pierde la posición del FORM[/s], y tratándose de objetos más grandes es más notorio este desfase.
¿Existe alguna forma de solucionar esa ubicación, al posicionarse en un objeto? La finalidad es que el Mouse esté siempre en el centro del texto orbital mientras esté dentro del Form.

3.- Si observaron la variable currStep va a ir incrementando su valor constantemente (siempre), ¿Qué podrá pasar si por así decirlo dejo trabajando el programa todo 1 dia o 1 semana, dicho valor no excederá el tipo de rango que tiene? ¿Cómo solucionar esta parte?

Ahora si espero vuestra ayuda por favor, y disculpen lo extensivo del post.
Deiv