Как сделать, чтобы при первом нажатии на кнопку TButton появлялось одно сообщение, а при втором нажатии - другое?

 if f then //Второй раз
      else //Первий
 f:=true;

if f then begin showmessage('Conected!') else
 begin
  f:=true;
  showmessage('Error!');
 end.

var
  Form1: TForm1;
  i: integer; //Счётчик
  mes: array[1..10] of string; //Массив
 
implementation
 
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
  i:=0;//При создании формы пускай счётчик обновиться
  //Создаём массив сообщений
  mes[1]:='Первое';
  mes[2]:='Второе';
  mes[3]:='Третье';
  mes[4]:='Четвёртое';
  mes[5]:='Пятое';
  mes[6]:='Шестое';
  mes[7]:='Седьмое';
  mes[8]:='Восьмое';
  mes[9]:='Девятое';
  mes[10]:='Десятое';
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  i:=i+1;//Добавляем к счётчику 1 не забывая о том что в самом начале мы его обнулили а счёт идёт с 1
  showmessage(mes[i]); //Выводим идентифицированное сообщение
end;

  //Простенькая такая проверочка e-mail
  if pos('@', edit1.text)>0 then (ShowMessage('Выполнено успоешно!')) and (edit1.setfocus)
  else ShowMessage('Вы ввели неверные данные, повторите попытку!');