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