uses
    SDL;
  
var
    screen: PSDL_Surface;
  
begin
    SDL_Init( SDL_INIT_VIDEO );
    screen := SDL_SetVideoMode( 200, 200, 32, SDL_SWSURFACE );
    if screen = nil then halt;
    SDL_Delay( 2000 );
    SDL_Quit;
end.