Обработка OnKeyPress

[Praud]

if key=VK_SPACE then
  begin
    inc(i);
    setlength(Point,i);
    GetCursorPos(Point[i-1]);
    if flagmemo2=false
    then
    begin
    Memo2.Lines.Add('--------------------1--------------------');
    flagmemo2:=true;
    end;
    Memo2.Lines.Add('(X=' + IntToStr(Point[i-1].X)+ ',Y='+ IntToStr(Point[i-1].Y)+')');
    Label6.Caption:='Кол-во                '+IntToStr(count+1);
    count:=count+1;
   end;

Подскажите как сделать чтобы каждые 3 нажатия на кнопку выбивало строчку типа этой

Memo2.Lines.Add('--------------------1--------------------');

только не "1", а порядковый номер.

И общий такой вопрос который не дает мне покоя. Как сделать чтобы при нажатии на одну выполнялись разные действия. Типа как в плеерах. 1 раз нажал на пробел - пауза, второй раз нажал на пробел - плей

[Аватар]

Что-то в таком духе, Button1.Tag не обязательно, любой другой счетчик и не обязательно в Button1Click

procedure TForm1.Button1Click(Sender: TObject);
begin
  Button1.Tag:=Button1.Tag+1;
  if Button1.Tag=3 then begin
    //чет делаем
    Button1.Tag:=0;
  end;
end;

Разные действия в зависимости от значения счетчика выполнять

[Praud]

Button1.Tag - конкретно для кнопки, хорошо. А как сделать на клавиши?
Нельзя же к примеру сделать VK_SPACE.Tag. И как выкручиваться?

[Аватар]

любой другой счетчик означает любую переменную, например в Private формы

if key=VK_SPACE then begin
  Inc(MyVariable);
  if MyVariable=3 then begin
    ... 
    MyVariable:=0;
  end;
end;

[Praud]

Общий смысл понятен, спасибо