DirectionEdgeStatistical example for Delphi

procedure TForm1.Button1Click(Sender: TObject);

begin
   { Load the bitmap, keeping the bits per pixel of the file }
   LEADImage1.Load ('image1.cmp', 0, 1, 1 );

   { Find the edges in the bitmap }
   LEADImage1.DirectionEdgeStatistical(15, 128, 4500, RGB(255, 255, 255), RGB(0, 0, 0));

end;