Поясните каждую строчку пожалуйста! Написано на Delphi

var
Form1: TForm1;
CountDuck:integer;
shot:integer;

implementation

{$R *.dfm}

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

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Image2.Left:=Image2.Left-20;
if (Image2.Left<=0) then Image2.Left:=544;
if CountDuck>3 then CountDuck:=1;
Image2.Picture.LoadFromFile('duck'+inttostr(CountDuck)+'.bmp');
inc(CountDuck);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
CountDuck:=1;
shot:=0;
end;

procedure TForm1.Image2Click(Sender: TObject);
begin
Timer1.Enabled:=false;
Image2.Picture.LoadFromFile('duck4.bmp');
Label1.Caption:=IntToStr(StrToInt(Label1.Caption)+1);
case StrToInt(Label1.Caption) of
1:Image8.Visible:=false;
2:Image7.Visible:=false;
3:Image6.Visible:=false;
4:Image5.Visible:=false;
5:Image4.Visible:=false;
6:Image3.Visible:=false;
end;
inc(shot);
Label2.Caption:=IntToStr(StrToInt(Label2.Caption)-1);
if(shot>=6) then
begin
Timer1.Enabled:=false;
showmessage('Âû óáèëè '+Label1.Caption+' óòîê');
end
else
Timer2.Enabled:=true;
end;

procedure TForm1.N2Click(Sender: TObject);
var
h: hcursor;
begin
shot:=0;
h := LoadCursorFromFile('mc.cur');
Screen.Cursors[1] := h;
Form1.Cursor := 1;
Image2.Left:=544;
Timer1.Enabled:=true;
Image2.Visible:=true;
Image3.Visible:=true;
Image4.Visible:=true;
Image5.Visible:=true;
Image6.Visible:=true;
Image7.Visible:=true;
Image8.Visible:=true;
Label1.Caption:='0';
Label2.Caption:='6';
end;

procedure TForm1.Timer2Timer(Sender: TObject);
begin
Image2.Left:=544;
Image2.Picture.LoadFromFile('duck1.bmp');
Timer1.Enabled:=true;
Timer2.Enabled:=false;
end;

procedure TForm1.Image1Click(Sender: TObject);
begin
inc(shot);
Label2.Caption:=IntToStr(StrToInt(Label2.Caption)-1);
if(shot>=6) then
begin
Timer1.Enabled:=false;
showmessage('Âû óáèëè '+Label1.Caption+' óòîê');
end;

end;

RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.

Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.

Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.