Source position: graphics.pp line 1817
function ReadXPMSize(
XPM: PPChar;
var Width: Integer;
var Height: Integer;
var ColorCount: Integer
):Boolean;