本系统在一些大中型企业(跨多达24个区域)一直都在很好的服务过

				unit langFrench;
				
				interface
				
				procedure SetLanguage;
				
				implementation
				uses unTranslation;
				
				procedure SetLanguage;
				begin
				  // Misc strings
				  AddStr(   1, 'Choisissez "Nouveau" pour cr閑r ou "Ouvrir" pour ouvrir une archive' );
				  AddStr(   2, 'OK' );
				  AddStr(   3, 'Annuler' );
				  AddStr(   4, 'Aide' );
				  // unit fmAboutBox
				  AddStr( 500, 'A propos' );
				  AddStr( 501, 'par Morgan Martinet (C)1998' );
				  AddStr( 502, 'Ces Composants sont Freeware.' );
				  AddStr( 503, 'Copyright (C) 1998 par NOMSSI NZALI Jacques H. C.' );
				  AddStr( 504, 'librairie pasZLib :' );
				  AddStr( 505, 'mmm@imaginet.fr ou mmm@mcom.fr' );
				  AddStr( 506, 'Impl閙entation BlowFish fournie par Greg Carter, CRYPTOCard' );
				  AddStr( 507, 'Code SFX par Oliver Buschjost' );
				  AddStr( 508, 'Site Web :' );
				  AddStr( 509, 'OK' );
				  // unit fmTiming
				  AddStr( 600, 'Temps 閏oul