Тоже правильно подмечено, aleksnine, здесь ведь Caption формы присваивается новое значение, а переменная остаётся той же (я этого не заметил), в итоге получается один и тот же результат. Хотя в нашем случае удобнее будет использовать мой способ, если нужно счётчик выводить на Caption формы, и не заморачиваться с этими переменными.
Код:
procedure TForm1.Button1Click(Sender: TObject);
begin
Form1.Caption{Form1.Caption='0'} := IntToStr(StrToInt(Form1.Caption) + 1);
end;
Всё в одну строчку - простенько и со вкусом
