Пожалуйста помогите сделать Delphi вращающиеся полуокружность

[RomaBayn]

Пожалуйста помогите сделать Delphi вращающиеся полуокружность со скоростями чтобы переключать срочно нужно сделать!

Вот написал что-то нужно переделать чтобы работала!

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    Image1: TImage;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
 Image1.Canvas.Chord(0, 0, 150, 150, 0, 150, 150, 0);
end;

end.
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, Menus;

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Timer2: TTimer;
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N2001: TMenuItem;
    N1001: TMenuItem;
    N501: TMenuItem;
    N3: TMenuItem;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Timer2Timer(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N2001Click(Sender: TObject);
    procedure N1001Click(Sender: TObject);
    procedure N501Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
      a:real;
      B:array[1..4,1..2] of integer;
 
implementation
 
{$R *.dfm}
 
procedure Prizma;
var i:integer;
begin
Form1.Refresh;
for i:=1 to 4 do begin
B[i,1]:=trunc(80*sin(a+i*4*pi/3));
B[i,2]:=trunc(-20*cos(a+i*4*pi/3));
end;
for i:=1 to 3 do begin
Form1.Canvas.MoveTo(200+B[i,1],100+B[i,2]);
Form1.Canvas.LineTo(200+B[i+1,1],100+B[i+1,2]);
Form1.Canvas.MoveTo(200+B[i,1],200+B[i,2]);
Form1.Canvas.LineTo(200+B[i+1,1],200+B[i+1,2]);
Form1.Canvas.LineTo(200+B[i+1,1],100+B[i+1,2]);
end;
a:= a+2;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Prizma;
form1.Timer1.Enabled:=true;
form1.Timer2.Enabled:=false;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
form1.Timer1.Enabled:=false;
form1.Timer2.Enabled:=false;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Prizma;
end;
procedure Prizmaa;
var i:integer;
begin
Form1.Refresh;
for i:=1 to 4 do begin
B[i,1]:=trunc(80*sin(a+i*4*pi/3));
B[i,2]:=trunc(-20*cos(a+i*4*pi/3));
end;
for i:=1 to 3 do begin
Form1.Canvas.MoveTo(200+B[i,1],100+B[i,2]);
Form1.Canvas.LineTo(200+B[i+1,1],100+B[i+1,2]);
Form1.Canvas.MoveTo(200+B[i,1],200+B[i,2]);
Form1.Canvas.LineTo(200+B[i+1,1],200+B[i+1,2]);
Form1.Canvas.LineTo(200+B[i+1,1],100+B[i+1,2]);
end;
a:= a-2;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
Prizmaa;
form1.Timer1.Enabled:=false;
form1.Timer2.Enabled:=true;
end;
procedure TForm1.Timer2Timer(Sender: TObject);
begin
Prizmaa;
end;
procedure TForm1.N1Click(Sender: TObject);
begin
Form1.Timer1.Interval:= 400;
Form1.Timer2.Interval:= 400;
end;
procedure TForm1.N2Click(Sender: TObject);
begin
Form1.Timer1.Interval:= 300;
Form1.Timer2.Interval:= 300;
end;
procedure TForm1.N2001Click(Sender: TObject);
begin
Form1.Timer1.Interval:= 200;
Form1.Timer2.Interval:= 200;
end;

procedure TForm1.N1001Click(Sender: TObject);
begin
Form1.Timer1.Interval:= 100;
Form1.Timer2.Interval:= 100;
end;

procedure TForm1.N501Click(Sender: TObject);
begin
Form1.Timer1.Interval:= 50;
Form1.Timer2.Interval:= 50;
end;

procedure TForm1.N3Click(Sender: TObject);
begin
Form1.Timer1.Interval:= 500;
Form1.Timer2.Interval:= 500;
end;

end.

[Stilet]

А по какой оси то вращение нужно?

[RomaBayn]

Вот так по Оси Y получается

[Stilet]

Первое что пришло в голову:

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
                  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, 
                    Dialogs, ExtCtrls, ComCtrls;

type

		  { TForm1 }

                  TForm1 = class(TForm)
				    Timer1: TTimer;
				    TrackBar1: TTrackBar;
				    procedure FormCreate(Sender: TObject);
				    procedure FormPaint(Sender: TObject);
				    procedure Timer1Timer(Sender: TObject);
                  private
                                    { private declarations }
                  public
                                    { public declarations }
                  end;


var   c:tpoint; r,i:integer;
                  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.FormCreate(Sender: TObject);
begin
                  c.x:=Width div 2;
                  r:=Width div 3;
                  c.y:=Height - r;
                  i:=0;
end;

procedure TForm1.FormPaint(Sender: TObject);
begin
                  with Canvas do begin
                    Arc(c.x-r+i,c.y-r,c.x+r-i,c.y+r,0,180*16);
		  end;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  inc(i,TrackBar1.Position); repaint;
  if i>2*r then i:=0;
end;

end.

Не вздумай копипастить, эта программа не проверялась. Проанализируй ее и разберись как она работает.

P.S. Слегка довел код до правильного.

[RomaBayn]

Можете программу в целом написать?просто не получается не работает.

[Stilet]

А она и так целиком )
Я же предупреждал - Не копипастить!!!. Тупое копирование из тырнета текста кода в Делфи не пройдет и никогда не проходило. Помимо этого нужно подключать события как минимум.
Еще раз нагадую: Проанализируй ее и разберись как она работает.