Консольное приложение

[shock-in]

Подскажите пожалуйста как сделать чтобы данная программа не закрывалась сразу после создания таймера, а работала бесконечно и выполняло процедуру каждые 10 секунд?

program Project1;

uses
  windows;
procedure TimerProcedure;
begin
//
end;

begin
SetTimer(0,0,10000,@TimerProcedure);
end.

[Скандербег]

Кто сказал (откуда взяли), что оконная процедура вообще будет работать в консольном приложении?

[crystalbit]

program Project1;

uses  windows;

procedure TimerProcedure;
begin
//
end;

begin
  repeat
    TimerProcedure;
    sleep(10000);
  until 1=0;
end.