Se obtiene a través de la función del API de Windows, GerUserName.

 
procedure TForm1.Button1Click(Sender: TObject);
var
  buffer : array[0..255] of char;
  Tambuffer : DWORD;
begin
  Tambuffer := sizeOf(buffer);
  GetUserName(@buffer, tambuffer);
  ShowMessage(buffer);
end;