type
  TDnsGetCacheDataTable = procedure (var P: Pointer); stdcall;

procedure TFormMain.ButtonStartClick(Sender: TObject);
var DnsGetCacheDataTable: TDnsGetCacheDataTable; // указатель на функцию TDnsGetCacheDataTable
    LibHandle: HModule;        // описатель библиотеки
    pEntry: Pointer;           //нетипизированный указатель
begin
  pEntry := nil;
  LibHandle := LoadLibrary('DNSAPI.dll');
  if LibHandle <> 0
  then begin
   @DnsGetCacheDataTable := GetProcAddress(LibHandle, 'DnsGetCacheDataTable');
   if @DnsGetCacheDataTable <> nil
   then begin
    MemoMain.Lines.Add('Готово!');

   // DnsGetCacheDataTable(&pEntry)

 {   int stat = DnsGetCacheDataTable(&pEntry);
    PVOID pFirstEntry = pEntry;
    printf("stat = %d\n", stat);
    pEntry = pEntry->pNext;
    while (pEntry) {
        wprintf(L"%s : %d \n", (pEntry->pszName), (pEntry->wType));
        pDnsApiFree(pEntry->pszName);
        PVOID p = pEntry;
        pEntry = pEntry->pNext;
        pDnsApiFree(p);
}
   end
   else begin
    MemoMain.Lines.Add('Ошибка отсутствия процедуры в библиотеке.');
   end;
  end;
  FreeLibrary(LibHandle);
end;