EnumSegments example for Delphi

procedure TForm1.LEADMRC1EnumSegments (nSegId, SegmentLeft, SegmentTop,
  SegmentRight, SegmentBottom, nSegType: Integer; crTextForeColor,
  crTextBackColor: Cardinal);
begin
   LEADImage1.DrawFillStyle := bsDiagCross;
   LEADImage1.DrawPenWidth := 6;
   LEADImage1.DrawPenColor := clYellow;
   if nSegType = SEGMENT_PICTURE Then
      LEADImage1.DrawFillColor := clGreen
   else
      LEADImage1.DrawFillColor := clRed;
   LEADImage1.DrawRectangle (SegmentLeft, SegmentTop, SegmentRight - SegmentLeft, SegmentBottom - SegmentTop);

end;
procedure TForm1.Button2Click(Sender: TObject);
begin
   LEADMrc1.EnumSegments ();
   Caption:= 'Picture segments will be green-hashed';
end;