програма ругаеца незнаю что делать и ТД.

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Gauges, StdCtrls, Spin, Buttons, MPlayer, ExtCtrls;
 
type
  TForm1 = class(TForm)
    Shape1: TShape;
    Shape2: TShape;
    Shape3: TShape;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Image1: TImage;
    Image2: TImage;
    Image3: TImage;
    Timer1: TTimer;
    Timer2: TTimer;
    MediaPlayer1: TMediaPlayer;
    Label4: TLabel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    SpinEdit1: TSpinEdit;
    Gauge1: TGauge;
    procedure Timer1Timer(Sender: TObject);
    procedure MediaPlayer1Click(Sender: TObject; Button: TMPBtnType;
      var DoDefault: Boolean);
    procedure FormCreate(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure Image1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Image1MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
uses Unit2;
 
{$R *.dfm}
 
procedure TForm1.Timer1Timer(Sender: TObject);
var
shiftx,shifty:integer;
begin
if label1.visible=true then
label1.Visible:=false
else
label1.visible:=true;
end;
 
procedure TForm1.MediaPlayer1Click(Sender: TObject; Button: TMPBtnType;
  var DoDefault: Boolean);
begin
mediaplayer1.filename:='E:\êîæàíûé îëåíü - òðèñòà áàêñîâ è äîðîãà (2010)\g.mp3';
MediaPlayer1.Open;
mediaplayer1.play;
MediaPlayer1.pause;
MediaPlayer1.stop;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
Var  i,score: integer;
ShiftX,ShiftY:integer;
Left1, Left2 , Left3:integer;
top1, top2, top3:integer;
begin
 i:=0;
score:=0;
left1:=Image1.left;
left2:=Image2.left;
left3:=Image3.left;
TOp1 :=image1.top;
TOp2 :=image2.top;
TOp3 :=image3.top;
setPicture;
end;
Procedure Information;
 var score,i:integer;
begin
Form1.Timer1.Enabled:=false;
Form2.Timer2.Enabled:=false;
Score:=(score * 100) div i;
IF score > 90 then
Form1.MediaPlayer1.filename:='E:\êîæàíûé îëåíü - òðèñòà áàêñîâ è äîðîãà (2010)\g.mp3';
If (score>70) and (score<90) then
Form1.MediaPlayer1.FileName:='E:\êîæàíûé îëåíü - òðèñòà áàêñîâ è äîðîãà (2010)\g.mp3';
Form1.MediaPlayer1.Open;
Form1.MediaPlayer1.Play;
 
Form1.Close;
end;
procedure TForm1.BitBtn2Click(Sender: TObject);
begin
Information;
 
end;
 
procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
 
  begin
Image1.Tag:=1;
 
Shift y;
Shift X;
 
end;
 
procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
if Image1.Tag = 1 then
 
begin
image1.Top:=image1.Top +y - shift y;
image2.left:=image1.Left +x - shift x;
end;
end;
procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
image1.Tag:=0
end;
 
end.