Correlation example for Delphi

procedure TForm1.Correlation1Click(Sender: TObject);
var
   uNumOfPoints: L_UINT;
   Points: Array [ 0..9 ] of TPoint;
begin
   { Load the bitmap, keeping the bits per pixel of the file }
   LEADImage1.Load( 'REDISTRIBUTABLE.CMP', 0, 1, 1 );
   LEADImage2.Load ( 'T.CMP', 0, 1, 1 );

   {Apply the correlation filter}
   LEADImage1.Correlation( LEADImage2.Bitmap, @Points, 10, uNumOfPoints, 1, 2, 90 );
end;