283          TryDo(Handle <> nil, msgFailed, true);

   283          TryDo(Handle <> nil, msgFailed, true);

   284          WriteLnToConsole(msgOK)

   284          WriteLnToConsole(msgOK)

   285          end;

   285          end;

   286 AddProgress;

   286 AddProgress;

   287 

   287 

   288 tmpsurf:= LandSurface;

   289 tmpsurf:= LandSurface;

   289 TryDo(tmpsurf <> nil, msgFailed, true);

   290 TryDo(tmpsurf <> nil, msgFailed, true);

   290 if cFullScreen then

   291 if cFullScreen then

   291    begin

   292    begin

   292    LandSurface:= SDL_DisplayFormat(tmpsurf);

   293    LandSurface:= SDL_DisplayFormat(tmpsurf);