function ByRelativeDistanceAscending(Item1: Pointer; Item2: Pointer): Integer;

Recognition_Template

procedure TemplateLibrary.ExtractImages; var i, j: integer; ct: CharacterClass; begin for i := 0 to TemplatesCount - 1 do begin ct := Templates[i]; for j := 0 to ct.TemplatesCount - 1 do BitmapFactory.SaveToImage(ct.Templates[j],IntToStr(i) + '_' + IntToStr(j) + '.BMP'); end; 

end;