BitBtnClick Опции

[VoRoNiCh]

подскажите пожалуйста как сделать чтоб при первом нажатии на кнопку выполнялась 1операция, а при втором 2ай. и при последующих нажатиях аналогично 1,2,1,2,1,2...

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
panel1.Visible:=true;
end;

end.

а при втором нажатии чтоб выполнялось panel1.Visible:=false;