.

function GetUserName:string;
var
   Len : DWord;
begin
   Len := MAX_USERNAME_LEN;
   SetLength( Result, Len );
  
   if not Windows.GetUserName( PChar( Result ), Len ) then
      RaiseLastWin32Error;

   SetLength( Result, Len );
end;