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