Возвращение из dll функции указателя на динамический массив

[JUDAS]

Здравствуйте господа ГУРУ С++

Вопрос банален но внятного ответа в Гугле не нашёл

Исходные данные:
Имеется вызывающий модуль, который вызывает функцию в DLL
Функция в DLL возвращается 0 или N элементов типа "typedef struct" в зависимости от параметров.

Собственно вопрос - как вернуть указатель на такой дамп элементов и как его потом освободить ?

type
  PPlanetParm = ^TPlanetParm;
  TPlanetParm = packed record
     name : array[0..63] of char;
     code : array[0..31] of char;
     Weight : double;
     RadiusM  : double;   
  ......  и.т.п
  end;

================== условно ===============
extern "C"
{

_MYDLL long int WINAPI getPlanetParam(int SystemCode, TPlanetParm& retArr)
{
    TPlanetParm * reference = 0;
    int count = SelectParamForDB(SystemCode, reference);

    if (reference && count )
    {
      retArr = new TPlanetParm[count];
      for (int i=0; i < count; i++)
         memcpy((&retArr+i), (reference +i), sizeof(TPlanetParm));

      delete reference;
    }
    return count;
}
.....
.....
.....
} // extern "C"

========================
Вызов
type
 TFuncPlanetParam= function (SystemCode: integer; arr : TPlanetParm) : integer; stdcall;


var func : TFuncPlanetParam;
     arr    : PPlanetParm;
     i, count : integer;
     lib : THandle;
begin
   lib := LoadLibrary("myastronomic.dll");
   func := TFuncPlanetParam(GetProcAddress(lib, 'getPlanetParam'));
   if Assigned(func) then
   begin
      count  := func(142501, arr);
      if Assigned(arr)  then
         FreeMem(arr); 
   end;
   FreeLibrary(lib); 
end;

[waleri]

Выделяете память new а освобождаете через FreeMem - это не кажется несколько странным?
Далее, во избежание всех тяжких, память выделенная одним модулем должна освобождаться им же - добавьте метод типа freePlanetParam