procedure TFrmrydj.btnJYJJClick(Sender: TObject);
type
  Tfzyb_yjjgl=procedure;stdcall;  
var
   LibHandle: THandle;
   fzyb_yjjgl:Tfzyb_yjjgl;
begin
    try
      LibHandle := LoadLibrary('zyb_yjjgl.dll');
      if LibHandle <> 0 then
      begin
        @fzyb_yjjgl := GetProcAddress(LibHandle, 'fzyb_yjjgl');
        if Assigned(fzyb_yjjgl) then
            fzyb_yjjgl; 
      end;
    finally
       freeLibrary(LibHandle);
    end;
end;