OCR MultiFont

program New;
{$I RML/RML.scar}

var
  FontSet: Array of TChars;
  i,t:Integer;
  text:String;
begin
  SetLength(FontSet, 110);
  for i:=0 to 109 do
  begin
    FontSet[i] := XT_LoadFont(AppPath +'Fonts\RSC\' + IntToStr(i));
  end;
  t := GetTimeRunning;
   //Start bellow upper-left white line corner - End at lower right white line corner
  Text := XT_GetTextAtEx(Box(144,297,398,335), FontSet, 1, 100, [clWhite], 1,75,1,'');
  WriteLn(GetTimeRunning - t);
  WriteLn(Text);
end.