TDirectDraw
property IsVerticalBlank: Boolean;
Read only. Returns True if a vertical blank is occurring and False otherwise.
See also IDirectDraw2::GetVerticalBlankStatus.