#pas
var    fn : string;    // ----
       FID: Cardinal;  // --
...
  fn := 'C:\Program Files\HiAsm\Примеры программ\DLL\PervaiaDLL.dll';       //-
  if FileExists(fn) then                                                    //--
    begin                                                                   //--
     FID := LoadLibrary(PChar(fn));                                         //--
    end;                                                                    //-

#pas
FWork := TdllProc(GetProcAddress(FID,'doWork'));
     FVar := TdllProc(GetProcAddress(FID,'GetVar'));
     di := tdllInit(GetProcAddress(FID,'DllInit'));
     if Assigned(di) then
      di(dll_Event,dll_Data,self);