[rgstuamigo]

Viendo o repasando tu pregunta veo que solo quieres que sea Alt+Click ó Ctrl+Click pues en ese caso solo cambia la condicion:

Código Delphi [-]
procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if (ssCtrl in Shift)and(Button=mbLeft) then
     ShowMessage('Se ha presiona CTRL+Click_Izquierdo en un '+Sender.ClassName)
  else
  if (ssAlt in Shift)and(Button=mbLeft)then
     ShowMessage('Se ha presiona ALT+Click_Izquierdo en un '+Sender.ClassName);
end;

Saludos...