Движение тела

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls;
 
type
  TForm1 = class(TForm)
    Timer1: TTimer;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
     end;
 
 Line = class
   x1,y1,x2,y2:integer;
   constructor Init(a,b,c,d:integer);
   procedure Mal(x1,y1,x2,y2:integer);
   procedure move(x1,y1,x2,y2,L:integer);
 
end;
 
Pram = class(Line)
   x3,y3,x4,y4,x5,y5:integer;
   L:integer;
   constructor Init(a1,b1,c1,d1,i1,f1:integer);
   procedure Mal(x3,y3,x4,y4,x5,y5,x6,y6:integer);
   procedure move(x3,y3,x4,y4,x5,y5,x6,y6:integer);
end;
 
 
var
  Form1: TForm1;
  Line1:Line;
  Pram1:Pram;
  x9:extended;
 
implementation
 
{$R *.dfm}
 
Constructor Line.Init(a,b,c,d:integer);
   begin
      x1:=a;   y1:=b;
      x2:=c;   y2:=d;
   end;
 
procedure Line.Mal(x1,y1,x2,y2:integer);
   begin
      with Form1,Canvas do
         begin
            MoveTo(x1,y1);
            LineTo(x2,y2);
         end;
   end;
 
procedure Line.move(x1,y1,x2,y2,L:integer);
 
   begin
      with Form1,Canvas do
         begin
         Mal(x1,y1,Round(180*cos(x9)+x2),Round(180*sin(x9))+y2);
         end;
   end;
 
 
 
 
 
Constructor Pram.Init(a1,b1,c1,d1,i1,f1:integer);
   begin
      x3:=a1;   y3:=b1;
      x4:=c1;   y4:=d1;
      x5:=i1;   y5:=f1;
   end;
 
procedure Pram.Mal(x3,y3,x4,y4,x5,y5,x6,y6:integer);
   begin
      with Form1,Canvas do
         begin
            Line1.Mal(x3,y3,x4,y4);
            Line1.Mal(x3,y3,x5,y5);
            Line1.Mal(x4,y4,x6,y6);
            Line1.Mal(x5,y5,x6,y6);
         end;
   end;
 
   
procedure Pram.move(x3,y3,x4,y4,x5,y5,x6,y6:integer);
 
   begin
      with Form1,Canvas do
         begin
         pram1.move(x3,y3,x4,y4,x5,y5,x6,y6);
         end;
   end;
 
  
procedure TForm1.Button1Click(Sender: TObject);
begin
 timer1.Enabled:=true;
end;
 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
with Canvas do begin
 FillRect(ClipRect);
 line1.mal(100,100,Round(180*cos(x9)+100),Round(180*sin(x9))+100);
 x9:=x9+0.008;
 if x9>pi/8 then
 begin
  timer1.Enabled:=false;
   end;
 end;
 
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
x9:=0;
end;
 
 
procedure TForm1.Button2Click(Sender: TObject);
begin
timer1.Enabled:=false;
end;
 
procedure TForm1.Button3Click(Sender: TObject);
begin
application.Terminate;
end;
 
procedure TForm1.Button4Click(Sender: TObject);
begin
if timer1.Enabled=false then timer1.Enabled:=true;
end;
 
end.