TDirectDraw
procedure WaitForVerticalBlank( Flags: Longint );
Calls the interface WaitForVerticalBlank method to help the caller synchronize itself with the vertical blank interval. See IDirectDraw2::WaitForVerticalBlank for more information.