...You never said that in your original post. That kind of stuff helps, as I don't read every other post on the forum. Don't have the time anymore.

RTL.pdf, pages 373-374


Code:
while not exit do begin
  if KeyPressed then
    exit := ReadKey in [' ',#13,#10];

  // ... Date stuff
end;