[Alegun]

Нету здесь кода библиотеки вообще, ключевое слово library отсутствует

Проверок возможно не хватает, надо похоже так делать динамическую загрузку

Код:

procedure TForm2.N4Click(Sender: TObject);
var
    dllins:thandle;
    ShowFormins:TShowFormins;
begin
   try
    dllins:= LoadLibrary('ins.dll');
    if dllins <> 0 then
     begin
      @ShowFormins:=GetProcAddress(dllins, 'ShowFormins');
      if addr(ShowFormins) <> nil then
       ShowFormins(handle);
   finally
    freelibrary(dllins);
   end;
    end else showMessage ('DLL not found...');
end;