function ShowForm(ADataSet: TDataSet): boolean;
begin
  ADataSet.Open;
  Form1 := TForm1.Create(Application);
  try
    Form1.DataSource1.DataSet := ADataSet;
    Result := Form1.ShowModal = IDOK;
  finally
    Form1.Free;
  end;
end;
{$R *.dfm}

exports
  ShowForm;


end.

..........
KB>

unit UnitInPackage;

interface

function ShowForm(ADataSet: TDataSet): boolean;

implementation

function ShowForm(ADataSet: TDataSet): boolean;
begin
  ADataSet.Open;
  Form1 := TForm1.Create(Application);
  try
    Form1.DataSource1.DataSet := ADataSet;
    Result := Form1.ShowModal = IDOK;
  finally
    Form1.Free;
  end;
end;

{$R *.dfm}

end.

uses UnitInPackage;

...........

ShowForm(...)

unit MainForm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, Grids, DBGrids;

type
  TForm2 = class(TForm)
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

function ExecForm(ADataSet: TDataSet): boolean;

implementation

{$R *.dfm}

function ExecForm(ADataSet: TDataSet): boolean;
begin
  with TForm2.Create(Application) do
  begin
    DataSource1.DataSet := ADataSet;
    Result := ShowModal = ID_OK;
    Free;
  end;
end;

exports
  ExecForm;

end.

function ExecForm(ADataSet: TDataSet; App: TApplication): boolean; external 'PKG_1.bpl';

implementation

{$R *.dfm}

procedure TForm1.btnExecBPLClick(Sender: TObject);
begin
  ExecForm(IBTable1);
end;

S>Ну, по идее так же. Только я не люблю с пакетами через exports работать. Поскольку как правило все-таки подключаются реализации не функций, а классов. Схему динамической привязки классов я уже приводил. Правило большого пальца — не использовать exports кроме случаев, когда ты вынужден это делать. exports суть пережиток темных времен процедурного программирования. Теперь у нас есть ООП и компонентная модель. Зачем этим феодализмом-то заниматься? Все прогрессивное человечество уже при посткапитализме живет

 function ExecCalculation(ADatabase: TIBDatabase; ObjectUNID: string): double;

var
  LCalculateObject: TAbstractCalculateObject;
    LCalculateObjectClass: TCalculateObjectClass;
begin    
  LCalculateObjectClass := TCalculateObjectClass(GetClass('TConcreteCalculateObject'));

  LCalculateObject := LCalculateObjectClass.Create;
  try
    LCalculateObject.Database := ADatabase;
    LCalculateObject.ObjectUNID := AObjectUNID;
    LCalculateObject.Exec;
  finally
    LCalculateObject.Free;    
  end;    
end;

KB> Это понятно... Но вот мне например надо, чтобы запускался блок расчета с визуальным редактированием параметров и передавать ей надо только базу данных и идентификатор объекта для которого считается...

KB> function ExecCalculation(ADatabase: TIBDatabase; ObjectUNID: string): double;
KB>

unit CalculationBase;
interface
uses ...;
type
    ICalculator = class
        class function Exec(ADatabase: TIBDatabase; ObjectUNID: string): double; virtual; abstract;
    end;

var
  Res: double;
begin    
  res=ICalculateObject(GetClass('TConcreteCalculateObject')).Exec(ADatabase: TIBDatabase; ObjectUNID: string);
end;

type
  ICalculator = class
    class function Exec(CalcName: String; ADatabase: TIBDatabase; ObjectUNID: string): double; 
        constructor Create(ADatabase: TIBDatabase; ObjectUNID: string); virtual; abstract;
    private
      function Execute: double; virtual;abstract;
  end;
implementation
    class function ICalculator.Exec(CalcName: String; ADatabase: TIBDatabase; ObjectUNID: string): double;
    begin
        with GetClass(CalcName) as ICalculator do
        begin
            with Create(ADatabase: TIBDatabase; ObjectUNID: string) do
            try 
                Result:= Execute;
            finally
                Free
            end;
        end;
    end;
end.