procedure Draw(canvas: TCanvas); override;

= Horizontal else 

= Vertical; end else begin CreateProjectionHistograms(vProjectionHistogram,hProjectionHistogram); gamma:=(hProjectionHistogram.SquareSum+1)/(vProjectionHistogram.SquareSum+1); if gamma>= DANGERZONE_ALPHA then 

= Horizontal else if gamma

var vProjectionHistogram,hProjectionHistogram,vPeaks, hPeaks: Histogram; i,m: integer; l: longint; vCount,hCount: longint; gamma: float; begin if (Bounds.Width<5*avgS.Width) or (Bounds.Height<5*avgS.Height) then begin if Bounds.Width>Bounds.Height then