dobbelt funktion

Hej eksperter....

Jeg har lige et lille problem som jeg gerne vil have løst det genere mig lidt. Jeg har lavet en menubjælke som hvor jeg har et menu punkt der hedder instillinger. der har jeg noget der hedder statusbar som er checked til at starte med. Men vil gerne have at man skal kunne fjerne den ved at trykke på statusbar i menuen. det virker også og den fjerner også det flueben der er. nu kommer det så at jeg gerne vil have at når jeg så trykker på statusbar i menuen igen så skal den vise statusbaren og sætte flueben igen.

jeg har lavet et lille eksempel men kan ikke få det til at virke.

eksempel....

procedure TForm2.Statusbar2Click(Sender: TObject);
begin
if form2.Statusbar2.Checked then
  begin
  statusbar1.Visible:=true;
  end
  else
  begin
    statusbar1.Visible:=false;
    form2.Statusbar2.Checked:=false;
  end;
end;

hvad kan jeg gøre for at kunne køre den dobbeltfunktion på det menupunkt?