Skeleton example for Delphi

procedure TForm1.SkeletonBitmap1Click(Sender: TObject);
begin
   LEADImage1.EdgeDetector( 60, EDG_SOBEL_ALL );
   LEADImage1.Skeleton( 128 );
end;