дополнить программу

[smile)]

Задание 3.
Вы заметили, что при запуске предыдущей программы после многократного нажатия на кнопку btStart периодически появляются грамматически неправильные сообщения типа «Кнопка нажата 2 раз», «Кнопка нажата 24 раз» и т.п.? Исправьте программу так, чтобы все сообщения были грамотными.

Решение.
Количество нажатий на кнопку - это значение переменной K. Если это число заканчивается цифрами 2, 3 или 4 (кроме двузначных чисел 12, 13 и 14), то фраза должна заканчиваться не словом «раз», а словом «раза».
Предлагаемый ниже фрагмент программы годится для числа нажатий, не превышающего ...(определите, какого значения?). Дополните программу так, чтобы она годилась для произвольного числа нажатий.

---------------
implementation
var
K:integer;
S:string;
{$R *.DFM}

procedure TfmMain.btStartClick(Sender: TObject);
begin
K:=K+1;
S:= 'Кнопка нажата '+IntToStr(K)+' раз';
if (K=2) or (K=3) or (K=4) then
S:=S+'а';
with lbMessage do
begin
Caption:=S;
Color:=clRed;
end;
end;
---------------

[Пепел Феникса]

и в чем проблема?

[smile)]

Дополнить программу так, чтобы она годилась для произвольного числа нажатий

в данной задаче получается, например, 24 раз, а нужно 24 раза...