Выставить таймер.

[IVANSour]

Подскажите как выставить таймер на 30 сек.
И после выполнить действие.

[5naip]

Timer1.Interval должно быть 1000. Оно по умолчанию так.

var
  i:integer = 0;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
inc(i);
if i = 30
  then
    begin
      Timer1.Enabled:=false;
      {Код вашего действия}
    end;
end;

[mihali4]

Таймер выставляется миллисекундами.
30 секунд - это интервал 30 000.

Сообщение от 5naip

Timer1.Interval должно быть 1000. Оно по умолчанию так.

var
  i:integer = 0;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
inc(i);
if i = 30
  then
    begin
      Timer1.Enabled:=false;
      {Код вашего действия}
    end;
end;

Ваше "if i = 30", не привязанное даже к хвосту коровы - не несет никакой смысловой нагрузки...

[5naip]

функция inc() вам знакома?
30 с = 30 000 мс,тут вы, без сомнения, правы.
Как раз для этого я и указал,что "Timer1.Interval должно быть 1000". А это ровно одна секунда. Умножаем на 30 и получаем 30 секунд.

[_Engine_]

Timer.Interval := 30000;
Ферштейн?

[5naip]

а я на всяк...вдруг ему нужно каждую сек что-то выполнять в программе...
да,ладно...проморгал, проморгал...