procedure SwapMouseButtons(bValue: Boolean);
begin
  if bValue then
    SystemParametersInfo(SPI_SETMOUSEBUTTONSWAP, 1, nil, 0)
  else
    SystemParametersInfo(SPI_SETMOUSEBUTTONSWAP, 0, nil, 0);
end;

begin
  SwapMouseButton(true);  // Поменять
  SwapMouseButton(false); // Поменять обратно
end;