delphi ocr图象文字解析

function identity(libName:pchar;mRound,bone,maxNoise,limit,spn,spx0,spy0,spuw,spuh,sppw,rlL,rlH,ruW,imgW,imgH:Integer;var imgAry:TBArray):string; var ary: TAAIArray; unitAry: TBArray; n,n1,x1,y1,x2,y2,unitW,unitH: Integer; rt: string; begin if spx0 < 0 then spx0 := 0; if spy0 < 0 then sp