Desabilitar botão contrário do mouse

procedure TForm1.Button1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  case Button of
    mbLeft  : ShowMessage(´Botão Esquerdo´);
    mbRight : ShowMessage(´Botão Direito´);
    mbMiddle: ShowMessage(´Botão do Meio´);
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(Clique do Botão 1´);
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  Pt : TPoint;
begin
  Application.ProcessMessages;
  //Obtém o point no centro do Button1 
  Pt.x := Button1.Left + (Button1.Width div 2);
  Pt.y := Button1.Top + (Button1.Height div 2);
  //Converte Pt para as coordenadas da tela  
  Pt := ClientToScreen(Pt);
  Pt.x := Round(Pt.x * (65535 / Screen.Width));
  Pt.y := Round(Pt.y * (65535 / Screen.Height));
  //Move o mouse
  Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_MOVE, Pt.x, Pt.y, 0, 0);
  //Simula o pressionamento do botão esquerdo do mouse} 
  Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTDOWN, Pt.x, Pt.y, 0, 0);
  //Simula soltando o botão esquerdo do mouse } 
  Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTUP, Pt.x, Pt.y, 0, 0);
end;