Obtener el nombre de usuario.

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;