Забыл Delphi

[bookkc]

Мне очень стыдно, но я реально забыл самые азы Delphi.

procedure TForm1.Button1Click(Sender: TObject);
begin
if Label1.Visible=true then begin
Label1.visible:=false
end
else begin
label1.visible:=true;
end;
end;

Этот код при нажатии на кнопку Button1 убератет label1 (делает невидимой) при повторном нажатии делает видимой. Как сделать так что бы если у мен видимые label2 и label3 то они делаются невидимыми И при повторном нажатии остаются всё же невидимыми

Реально забыл... Вот что значит не юзать дельфи около года

[bookkc]

Уже ненадо,

if Label1.Visible=true then begin
Label1.visible:=false
end
else begin
label1.visible:=true;
end;

if Label2.Visible then Label2.visible:= false;
if Label3.Visible then Label3.visible:= false;

Почему-то изначально ругалось

[Mad_Cat]

procedure TForm1.Button1Click(Sender: TObject);
begin
if Label1.Visible=true then begin
Label1.visible:=false
end
else begin
label1.visible:=true;
end;
end;

а не проще написать

label1.visible:=not Label1.visible;