Пакет загружается статически, при ShowModal выдается ошибка. И даже при ShowMessage.
Что не так делаю?

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.