library Filter;

uses
  FastMM4,
  Forms,
  Windows,
  Oracle,
  FilterU in 'FilterU.pas' {FilterForm};

{$R *.res}

exports
        CallFilter,
        ******;

begin
end.

-- условный пример
-- внутри длл вызывается такая функция
function CallFilter(ID: Integer /удалено лишнее/) : Integer;
var
  FilterForm : TFilterForm;
begin
  /удалено лишнее/
  FilterForm := TFilterForm.Create(Application);
  try
      result := FilterForm.ShowModal;
      if result = mrOK then begin
        /удалено лишнее/
      end;
  finally
    FilterForm.release;
  end;
end;

Project z.exe raised exception class EInvalidPointer
with message 'Invalid pointer operation'.
Process stopped. Use Step or Run to continue.