¿Cómo puede Delphi obtener dinámicamente el valor de la colección TShiftState sin llamar a eventos del sistema como OnKeyUp y OnMouseUp?

Los parámetros de tiempo están incluidos y se pueden utilizar directamente, por ejemplo:

procedure FormMouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X , Y: Entero);

procedimiento FormMouseMove(Remitente: TObject; Shift: TShiftState; X,

Y:

procedimiento FormMouseUp(Remitente); : Botón TObject: TMouseButton;

Mayús: TShiftState X, Y: Entero);