[akseon]

Дело такое:
Нужно сделать отчет времени на кнопке.

То есть:
текст

if Button1.Captiоn = 'text' then
Button1.Captiоn := 'text2'; ;

нужно чтобы после того , как текст закончился, Пошел отсчет времени на кнопке.
Как это реализовать?

[Snake22]

а всмысле текст закончился? как он закончиться должен?
отсчёт времени вставь по таймеру
в таймере пропиши
button1.caption='Осталось: '+IntToStr(i); //i глобальная
i:=i-1;

[M.A.D.M.A.N.]

Сообщение от Snake22

i:=i-1;

Dec(i);

[Snake22]

дада и про inc(i) знаем

[akseon]

у меня что-то не получается.
Мне нужно сделать отсчет времени после того, как я нажму 1 раз на кнопку.
То есть, нажал на кнопку 1 раз и через там 3 секунды пошел отсчет времени 10,9,8,7,6,5,4,3,2,1,0 на самой кнопке.

[m1sclick]

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
Timer1.Enabled:=true;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Timer1.Interval:=1000;
Button1.Caption:=inttostr(i);
dec(i);
if i < 0 then
begin
Timer1.Enabled:=false;
Button1.Caption:='Go!!';
end;
end;