var

    Buffer:array[0..255] of char;

    Len:integer;

begin

    Len :=255;

    GetEnvironmentVariable('USERDOMAIN',Buffer,Len);

    ShowMessage(Buffer);

end;