Решение.
Количество нажатий на кнопку - это значение переменной 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;