[roman]

Código Delphi [-]
var
  Buffer: array[Byte] of Char;
  Size: Cardinal;

begin
  Size := 256;
  Windows.GetUserName(Buffer, Size);
  Edit1.Text := Buffer;
end;

// Saludos