begin
   // comment
   with tmywait.create('1') do
   try
     while not application.terminated do
     begin
       advancedtext := datetimetostr(now);
       application.processmessages
     end;
   finally
     free
   end
end.