Bart Broersma mentioned this to All:
 BB> BOOL GetUserName(
 BB>  LPTSTR lpBuffer,
 BB>  LPDWORD nSize
 BB> );
function UserName : string;
var
    Buffer : array[0..1024] of char;
    Size   : DWORD;
begin
    if GetUserName(Buffer, @Size) then
        Result := Buffer;
    else
        Result := ''
end;
                                ...Gary
--- GoldED 2.41
---------------