Delphi 7 при клике на картинку, переменная в другой процедуре увеличивается

[Praksiv]

есть обычный lalbel и фон, при нажатии на фон в lalbel увеличивается значение на 1. При наборе в label определенного числа становится доступна другая картинка и при нажатии на картинку должно увеличиваться значение на 2 или больше. Например:
Нажимаешь на фон 3 раза. В label значение 3. Нажал на доступную картинку, затем ещё 3 раза нажал на фон и значение в label равно 9.
Помогите реализовать данную процедуру(процедуры).

[evg_m]

при нажатии на фон

фон чего? видимо формы.
Form F11(Inspector Objects) Events OnClick

в lalbel увеличивается значение на 1.

r:=LavelX.tag;
LabelX.Tag:=r+1;

При наборе в label определенного числа становится доступна другая картинка

ImageY.enabled:=(LabelX.Tag>=ValueofImage);

при нажатии на картинку должно увеличиваться значение на 2

ImageY F11 events OnClick

LabelX.Tag:=LabelX.Tag+2;

[Praksiv]

фоном является картинка
procedure TForm4.img1Click(Sender: TObject);
begin
StrToInt(lbl1.Caption);
x:=x+1;
lbl1.Caption:=IntToStr(x);
lbl1.Height:=41;
lbl1.Width:=889;
end;

procedure TForm4.FormCreate(Sender: TObject);
begin
lbl1.Height:=41;
lbl1.Width:=889;
end;

procedure TForm4.img2Click(Sender: TObject);
begin
img2.Enabled:=False;

if StrToInt(lbl1.Caption) <> 10 then
begin
ShowMessage('Need more Click');
end
else
img2.Enabled:=True;
img2.Visible:=False;
end;
end.
Вот весь код формы, если я пытаюсь сделать команду
If img2.visible:=true then ...
программа выдает ошибку что тип boolean не подходит. Пытался по разному решить проблему, но не получается.

[evg_m]

:= это присвоить(задать значение)
= это сравнить два значения

If img2.visible:=true then ...
if img2.visible then ...

[Praksiv]

Спасибо большое!