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