TShowForm=procedure(Handle: THandle; const DBHandle: HDBIDB);
var
  Form: TForm;
  hLibForm: THandle;
  ShowForm: TShowForm;
...
function TForm.GetSessionHandle: HDBIDB;
begin
  result:=Session.Databases[Session.DatabaseCount-1].Handle;
end;
...
    if hLibForm<32
    then ShowMessage('Отсутствует библиотека ***.DLL')
    else begin
      ShowForm:=TShowForm(GetProcAddress(hLibForm,'SHOWFORM'));
      ShowForm(Self.Handle, GetSessionHandle);
    end;
...

TShowForm=procedure(AppHandle: THandle; const DBHandle: TISC_DB_HANDLE); stdcall;
var
  frmForm: TfrmForm;
  hLibForm: THandle;
  ShowForm: TShowForm;
...
    if hLibForm=0 then begin
      ShowMessage('Библиотека ***.dll не загружена.');
      exit;
    end;
    @ShowForm:=GetProcAddress(hLibFormr,'SHOWFORM');
    if not (@ShowForm=nil) then begin
      ShowForm(Application.Handle,DB.Handle);
    end else begin
      ShowMessage('Ошибка обращения к процедуре SHOWSPRAV в библиотеки ***.dll');
    end;
...