ContourFilter example for Delphi

procedure TForm1.Button1Click(Sender: TObject);
var
   nRet: Integer;
begin
   nRet:= LEADImage1.Load('e:\image1.cmp', 0, 1, 1);
   if(nRet = SUCCESS)then
      LEADImage1.ContourFilter(20, 35, 5, CONTOUR_APPROX_COLOR);
end;