...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;
Bookmarks