AV bei LookupAccountName

[Luckie]

Ich bekomme mit diesem Code:

Delphi-Quellcode:

const
  MAX_NAME_STRING = 1024;

procedure TForm1.Button3Click(Sender: TObject);
var
  SID: PSID;
  lenSID: DWORD;
  RefDomain: ARRAY[0..MAX_NAME_STRING] OF Char;
  lenRefDomain: DWORD;
  peUse: SID_NAME_USE;
  strSID: String;
begin
  SID := nil;
  LookupAccountName('hal9000', 'Michael', SID, lenSID, RefDomain, lenRefDomain, peUse);
  ConvertSidToStringSidW(SID, strSID);
  ShowMessage(strSID);
end;

bei LookupAccountName eine AccessViolation, ich weiß aber nicht warum.