В builder пытаюсь вызвать функцию CreateReestrFile из PRJ_Reestr.dll таким образом:

typedef void (*pfuncCrtReestr)(TADOQuery);
pfuncCrtReestr CrtReestr;

HINSTANCE hLib = LoadLibrary("PRJ_Reestr");
if(hLib==NULL){ShowMessage("Не хватает PRJ_Reestr.dll");}
else {ShowMessage("Все на месте!!!");}

char dllpath[70];
GetModuleFileName((HMODULE)hLib,(LPTSTR)dllpath,70);
CrtReestr = (pfuncCrtReestr)GetProcAddress((HMODULE)hLib, "CreateReestrFile");
CrtReestr (QueryClients) ;
FreeLibrary((HMODULE)hLib);

но компилятор не дает этого сделать и выдает ошибку VCL style classes must be constructed using operator new на строке CrtReestr (QueryClients). Теперь вопрос: как можно передать TADOQuery в процедуру находящуюся в dll.

DLL написана на Delphi и ее можно изменять, но не знаю каким образом это необходимо сделать.

В том то и дело, что с Builder практически не работал. Работал тока в Delphi. И соответственно как в Builder работать правильно с указателями не знаю.
DLL действительно пишу на Delphi, а вот exe как раз в Builder (все исходники есть). Пишу DLL на Delphi только потому что знаю его гораздо больше чем Builder.

Чтоб было понятнее. Функция принимает TADOQuery только для того чтобы взять из него данные и обработать их. Возвращает только true или false в зависимости от результата. Изменить код в билдере могу на указатели и соответственно подправить dll в делфи, но как правильно изменить в билдере на указатели как раз и не знаю. Просто создавать дополнительное подключение к БД не хотелось.

Сейчас попробую.

Сменил место работы. В планах было переводить приложение на делфи. Но руководство приняло решение переводить все на ERP и соответственно переписывание под делфи не имеет смысла, но есть некоторые моменты которые очень устарели (в данном случае - работа с отчетами в Excel) и которые необходимо обновить (вернее переписать, т.к. написано было, мягко говоря, криво).

Нет, не получилось:

Procedure CreateReestrFile (QueryClients: Pointer);
begin
if not TADOQuery(QueryClients^).Active
then TADOQuery(QueryClients^).open;
TADOQuery(QueryClients^).RecordCount;
End;

TADOQuery(QueryClients^).Active все хорошо, результат true, но
TADOQuery(QueryClients^).RecordCount вызывает ексепшн.

To Карабас Барабас
Все оказалось очень просто. Обсуждение здесь