var EntriesRead, TotalAvail: DWORD;
  Buf: Pointer;
  TempBuf:PSessionInfo502;
  i:integer;
begin
 NetSessionEnum('', nil, nil, 502,
    Buf, MAX_PREFERRED_LENGTH, EntriesRead, TotalAvail, nil);
 TempBuf:=Buf;
 for i:=1 to EntriesRead do begin
  re1.Lines.Add(TempBuf^.sesi502_cname); //Ausgabe in einen Richedit
  re1.Lines.Add(TempBuf^.sesi502_username); //Ausgabe in einen Richedit
  Inc(TempBuf);
 end;
 NetApiBufferFree(Buf);
end;