[Alegun]

Думаю, надо воспользоватся таймером..

Код:

var
Count: integer=0;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if Count > 30 then Count:= 0;
inc(Count);
if Count = 30 then
ShellExecute(Handle, nil, PChar('test.exe'), nil, nil, SW_RESTORE);
end;