Library DLL2;
uses Sysutils;
var F: LongInt;
    szStr  : array[0..100] of Char;
Begin
   F:=FileCreate('Dll2.log');
   strcopy(szStr,'Dll2 is loaded');
   FileWrite(F,szStr,StrLen(szStr));
   FileClose(F);
End.