NetFileEnum(nil,nil,nil,3,@Info,16,Count,Dummy,nil);

Доброго всем дня!
Люди, подскажите пожалуйста, что у меня не так в ниже приведенном коде?
Я хочу получить список юзеров кто приконектился ко мне и куда именно приконектился.
У меня компилятор ругается на строку вызова функции NetFileEnum и курсор ставит на выделенный элемент. Говорит что то о не правильных типах вроде, сейчас точно фразу не вспомню...

  FILE_INFO_3 = record
    afi3_id: DWORD;
    afi3_permissions: DWORD;
    afi3_num_locks: DWORD;
    afi3_pathname : PWideChar;
    afi3_username : PWideChar;
    end;

var
  Form1: TForm1;
implementation

{$R *.dfm}
function NetFileEnum( servername: PWideChar;
basepath: PWideChar;
username: PWideChar;
level: DWORD;
var bufptr: Pointer;
prefmaxlen: DWORD;
var entriesread: DWord;
var totalentries: DWord;
var resume_handle: DWord ):DWORD; stdcall; external 'netapi32.dll' Name 'NetFileEnum';

procedure TForm1.Button1Click(Sender: TObject);
var
  A :Integer;
  Info:FILE_INFO_3;
  Count,Dummy:DWORD;
begin
NetFileEnum(nil,nil,nil,3,Pointer(Info),16,Count,Dummy,nil);
for A:=0 to Count-1 do begin
 Memo1.Lines.Add(Format('%s (%s)',[PWideChar(Info.fi3_pathname),PWideChar(Info.fi3_username)]));
 Inc(Info);
end;

sorry, prev post have mistake
it's correct:

type
  PFile_Info_3 = ^File_Info_3;

...
var
  Info:PFILE_INFO_3;
begin
...
NetFileEnum(nil,nil,nil,3,@Info,16,Count,Dummy,nil);