EdgeDetectStatistical example for Delphi

procedure TForm1.EdgeDetectStaticClick(Sender: TObject);
begin
   LEADImage1.EdgeDetectStatistical( 15, 128, RGB(255, 255, 255), RGB(0, 0, 0) );
end;