while now <> time
   show time on main form
end while