Не работает программа анимации (движения) картинок

[afterik]

Здравствуйте
Помогите разобраться в чем ошибка
При нажатии button1 должен двигаться image2 а при нажатии button5 двигаться в другом направлении но, программа не запускается, постоянно выдает разные ошибки. Я уже не знаю в чём проблема.

 unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Image1: TImage;
    Image2: TImage;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Timer1: TTimer;
    Button4: TButton;
    Timer2: TTimer;
    Button5: TButton;
    procedure Timer1Timer(Sender: TObject);
    procedure Timer2Timer(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);


  private
    { Private declarations }
  public
    { Public declarations }
  end;

var Alfa, R:integer;
   PUSK:boolean;
   PUSK2:boolean;
   Form1: TForm1;


implementation

{$R *.dfm}


procedure TForm1.Button1Click(Sender: TObject);
begin
PUSK:=true;

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
 PUSK:=false;
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
PUSK2:=true;


end;
procedure TForm1.Button3Click(Sender: TObject);
begin
close;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
Form1.WindowState:= wsMaximized;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 if PUSK then
    begin


      Image2.Left:=Image1.Left+Image1.Width div 2
                   +trunc(cos(Alfa*pi/180)*R);
      Image2.Top :=Image1.Top+Image1.Height div 2
                   -trunc(sin(Alfa*pi/180)*R);
      Alfa:=Alfa+1;
 end;
end;


begin
 PUSK:=false;      
  Alfa:=0;              
  R:=200;             
end;
end;
procedure TForm1.Timer2Timer(Sender: TObject);
begin
 if PUSK2 then
    begin

      Image2.Left:=Image1.Left+Image1.Width div 2
                   +trunc(cos(Alfa*pi/180)*R);
      Image2.Top :=Image1.Top+Image1.Height div 2
                   -trunc(sin(Alfa*pi/180)*R);
      Alfa:=Alfa-1; 
 end;
end;


begin
 PUSK2:=false;     
  Alfa:=0;            
  R:=200;
end.

[eval]

надо читать ошибки и исправлять их

[afterik]

Дак да, но я новичок в этом и у меня уже кипят мозги

[SKS]

http://www.programmersforum.ru/showthread.php?t=147082

[Stilet]

я новичок

Даже новичкам по силам ошибками делится.

[phomm]

begin
 PUSK:=false;      
  Alfa:=0;              
  R:=200;             
end;
end;

Висит в воздухе - не принадлежит никакому методу. Чисто навскидку оно не нужно вообще - убрать и всё.

begin
 PUSK2:=false;     
  Alfa:=0;            
  R:=200;
end.

Так в целом вроде как можно делать, но это некрасивый подход, глобальные переменные лучше инициализировать при объявлении. Например, var R: integer=200;

[afterik]

var Alfa, R:integer=150;
    PUSK:boolean;
    PUSK2:boolean;
    Form1: TForm1;

Сделал так, но теперь другая ошибка,

cannot initialize multiple variables

[Serge_Bliznykov]

а так?

var R:integer=150;
    Alfa:integer; 
    PUSK:boolean;
    PUSK2:boolean;
    Form1: TForm1;

p.s. я бы, например, никогда не стал так иницилизировать переменную.
Хотя бы потому что, что это не универсально (для разных версий Паскаля\Delphi не везде будет компилироваться)

[afterik]

Я и так делал
Это не я делал исходный код
Задание было такое
Модернизировать программу так что бы image2 при нажатие кнопки крутился в другую сторону.
Я исправил проблему создав кнопку

procedure TForm1.Button6Click(Sender: TObject);
begin
R:=150;
end;

Перед этим удалив

begin
 PUSK:=false;      
  Alfa:=0;              
  R:=150;             
end;
end;

и

begin
 PUSK:=false;      
  Alfa:=0;              
  R:=150;             
end.

[afterik]

а нет, мне помогло

var R:integer=150;
    Alfa:integer; 
    PUSK:boolean;
    PUSK2:boolean;
    Form1: TForm1;

Спасибо