{------------------------------------------------------------------------------}
{ Copyright             : © Copyright 1996 by Y. Rochat                        }
{ Date de creation      : 14/12/1995                                           }
{ Last Update           : 23/01/1996                                           }
{ Version Number        : 1.10                                                 }
{ Langage Programmation : DELPHI 1.01                                          }
{------------------------------------------------------------------------------}
{ YRNAG.PAS  		: A NagScreen COMPONENT for DELPHI that allow you to   }
{                         easily implement a Nag screen for your projects.     }
{                         When invoked by a call to the ShowNag method, it will}
{                         display your shareware information in a TMemo box for}
{                         WaitTime seconds. This information must be written in}
{                         a text file called 'comments.txt' and located in the }
{                         main directory of your project as the file 'icon.bmp'}
{                         which is the icon of your application.               }
{                                                                              }
{                         You can invoke the Nag's Screen through the main     }
{                         form's OnCreate or OnShow event handlers.            }
{                                                                              }
{ HOW TO USE IT : 1) Put a TYRNagScreen (by ex. MyNag) in your main Delphi form}
{                 2) Make a call to MyNag.ShowNag to invoke the Nag's Screen   }
{------------------------------------------------------------------------------}
{                               IMPORTANT                                      }
{                                                                              }
{ You can use this code as is and you are FREE to copy/distribute provided that}
{ this notice is not modified and included in the distrubution pack.           }
{ I'll be more than happy to hear from you for your comments about a real-life }
{ use of this code. Please send your comments to " rochat@dma.epfl.ch " with   }
{ subject field starting with the words 'TYRNAG'.                              }
{------------------------------------------------------------------------------}
{:DISCLAIMER:                                                                  }
{------------                                                                  }
{  THIS SOURCE CODE IS DELIVERED AS IS. THERE IS NO REASON TO THINK THAT IT    }
{  SHOULD NOT WORK AS CLAIMED. BUT JUST IN CASE, LET ME DISCLAIM THAT YVES     }
{  ROCHAT CAN NOT BE HELD LIABLE IF YOU LOOSE TIME OR MONEY USING THIS CODE.   }
{------------------------------------------------------------------------------}