Alle User eines Rechners auflisten

[Luckie]

So, ich habe es jetzt so weit:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  dwEntriesRead, dwEntriesTotal: DWORD;
  ui1, ui2 : Pointer;
  i : Integer;
begin
  if NetUserEnum(nil, 0, FILTER_NORMAL_ACCOUNT, ui1, MAX_PREFERRED_LENGTH, dwEntriesRead, dwEntriesTotal, nil) = NERR_SUCCESS then
  begin
    ui2 := ui1;
    for i := 0 to dwEntriesRead-1 do
    begin
      Listbox1.Items.Add(PUserInfo1(ui1)^.usri1_name);
      Inc(Integer(ui1));  // <-- So nicht!
    end;
  end;
  NetAPIBufferFree(ui2);
end;

Beim Abarbeiten der Schleife bekomme ich eine AccessViolation. Könnte sich dessen mal bitte jemand annehmen?