Return current video mode
Source position: videoh.inc line 144
procedure GetVideoMode(
var Mode: TVideoMode
);