[Delphi] 2 Нажатия клавиши

[Mixer792]

Привет всем! Нужна помощь. Нужно: при первом нажатии кнопки присваивать Label - 'Нажатие 1' при втором 'Нажатие 2', при 3 'Нажатие 1' и т.д
Пробовал так:

PHP код:

If GetKeyState(50) <>0 then
begin
if check=0 then begin check:=1; Label1.Caption:='Нажатие 1'; end else begin check:=0; Label1.Caption:='Нажатие 2'; end;
end; 


(В таймере)

Но после первого нажатия Label меняет значения Нажатие 1-Нажатие 2 даже без нажатия клавиши. После второго нажатия значения меняться перестают.
Кто может помочь исправить код?

[ZX Spectrum-128]

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;

type

  { TForm1 }

  TForm1 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;
  pr:integer;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);
begin
  inc(pr);
  if odd(pr) then label1.Caption:='Pressed 1' else label1.Caption:='Pressed 2';
end;


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

end.

[BDA]

ZX Spectrum-128, вдруг пользователю хватит смелости накликать на переполнение int
При 2 вариантах удобно использовать boolean:

t: boolean;
...
t := not t;
if t then label1.Caption:='Pressed 1' else label1.Caption:='Pressed 2';
...
t := true;

Если нужно больше вариантов, то брать остаток и по нему выбирать:

pr := (pr + 1) mod n;

где n - количество нужных вариантов. И в таком случае оформлять не через if, а как массив строк.

[ZX Spectrum-128]

BDA, согласен. Наши могут накликать не только переполнение.
Это я так, как вариант решения предложил.