EdgeDetectEffect example for Delphi
procedure TForm1.Button1Click(Sender: TObject);
begin
{ Load the bitmap, keeping the bits per pixel of the file }
LEADImage1.Load ('image3.cmp', 0, 1, 1 );
{ Apply find edges effect on the image }
LEADImage1.EdgeDetectEffect(50, 0, EDGE_SOFT);
end;