Function GetUsername: String;
Var
   buf: Array [0..100] of Char;
   bufsize: DWORD;
Begin
   buf[0] := #0;
   bufSize := Sizeof(buf);
   WNetGetUser( Nil, buf, bufsize );
   Result := buf;
End;