Fixed path to media dir

Source/GLUtils.pas

@@ -627,7 +627,7 @@ begin
    path := ParamStr(0);
    path := LowerCase(ExtractFilePath(path));
    p := Pos('demos', path);
-   Delete(path, p+7, Length(path));
+   Delete(path, p+5, Length(path));
    path := IncludeTrailingPathDelimiter(path) + 'media';
    SetCurrentDir(path);
 end;