put it in AppOnIdle:
procedure AppOnIdle(ticks: integer);
begin
if (ticks mod AMOUNT = 0) then writeconsole(0, 'your text', color);
end;
It's convenient to use timeInSeconds*60 or timeInMinutes*3600 as AMOUNT. In your case it would be 2*60*60 = 2*3600 = 7200 ticks.