{
Return data string as integer or default value DefVal.
}
function iValDef(Data:String;DefVal:Integer):Integer;
var i:Integer; r:Real;
begin
 i:=Val(Data);
 r:=rVal(Data);
 if IsNan(r) or IsInf(r) or (r<>i) then iValDef:=DefVal else iValDef:=i;
end;
