1:
2:
3:
4:
5:
6:

var
  Form1: TForm1;
  schwarm: array of TLabel;

const
  mausText: string = '2004 by cr!z   ';					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

procedure TForm1.FormCreate(Sender: TObject);
var
  i: integer;
begin
  SetLength(schwarm, length(mausText));
  for i := 0 to length(mausText) - 1 do begin
    schwarm[i] := TLabel.Create(Self);
    with schwarm[i] do begin
      Parent := Self;
      Font.Name := 'Terminal';
      Font.Color := clRed;
      Caption := mausText[i + 1];
      Top := 10 + i * 10;
    end;
  end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

procedure TForm1.Timer1Timer(Sender: TObject);
var
  r, i, c: integer;
  Xk, Yk, Xm, Ym, Xp, Yp: integer;
begin
  Xm := Mouse.CursorPos.X - Self.Left;
  Ym := Mouse.CursorPos.Y - Self.Top - 25;
  Xp := Xm + 32;
  Yp := Ym + 32;
  r := Round(Sqrt((Xm - Xp) * (Xm - Xp) + (Ym - Yp) * (Ym - Yp)));
  c := 1;
  for i := 0 to 360 do begin
    Xk := Xm + Round(r * Cos((i - 45) * pi / 180));
    Yk := Ym + Round(r * Sin((i - 45) * pi / 180));
    if i = c * Round(360 / Length(mausText)) + t then begin
      schwarm[c - 1].Left := Xk;
      schwarm[c - 1].Top := Yk;
      inc(c);
    end;
  end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

for i := 0 to 360 do begin
    Xk := Xm + Round(r * (Cos((i - 45) * pi / 180)));
    Yk := Ym + Round(r * (Sin((i - 45) * pi / 180)));
    if i = c * Round(360 / Length(mausText)) + t then begin
      schwarm[c - 1].Left := Xk;
      schwarm[c - 1].Top := Yk;
      inc(c);
    end;
  end;
  inc(t);