var
 _LoadFunc : function (P : PChar; b : longbool) : longbool; stdcall;
 _GetFunc : function(X : integer; P : PChar; i : integer) : integer; stdcall;
 hM : hModule;
 P   : PChar;
 i    : integer;
begin
 hm:=LoadLibrary('mydll.dll');
 if hm<>0 then begin
   _LoadFunc:=GetProcAddress(hm,'loadfunc');
   P:=StrNew(PChar('C:\file.dat'));
   if _LoadFunc(P,true) then // загружаем файл данных
     ShowMessage(Loaded);
   StrDispose(P);
   _GetFunc:=GetProcAddress(hm,'getfunc');
   i:=_GetFunc(1,nil,0); // запрашиваем размер буфера под данные
  GetMem(P,i);
  GetFunc(1,P,i); // заполняем буфер данными
  ShowMessage(StrPas(P));
  FreeMem(P);
  FreeLibrary(hm)
 end
end;