{------------------------------------------------------------------------------}
{
   Unit Name: CompanyVesal
   Purpose  : Just to change the Company name to vesal
   Author   : Vesa Lappalainen
   Date     : 7.1.2001
   Changed  :

   ToDo     :
}
{------------------------------------------------------------------------------}

unit CompanyVesal;

interface

implementation
uses IniReadOrder;

initialization
  GlobalIniReadOrder['%COMPANY%'] := 'vesal';


end.