[ApxaHGe1]

Код:

  i:integer;
procedure TForm1.FormCreate(Sender: TObject);
begin
i:=0;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
i:=i+1;
case i of
  1:ShowMessage ('1 клик');
  2:ShowMessage ('2 клика');
  3:ShowMessage ('3 клика');
end;
end;