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