SetNewStripe example for Delphi

var
   nStripe: Integer;
   nSeg: Integer;
   nRet: Integer;
begin
   nStripe := LEADMrc1.SetNewStripe (0, 100);
   if (nStripe >= 0) then
   begin
      nSeg:= LEADMrc1.SetStripeSegment (nStripe, 10, 10, 140, 80, SEGMENT_PICTURE, 0, 0);
      if nSeg >= 0 then
      begin
         nRet := LEADMrc1.UpdateSegmentData (nSeg, 5, 5, 150, 90, SEGMENT_TEXT, clBlack, clWhite, True);
         if (nRet = SUCCESS) then
            ShowMessage ('Update Successful');
         nRet:= LEADMrc1.DeleteSegment (nSeg);
         if (nRet = SUCCESS) then
            ShowMessage ('delete Successful');
      end;
   end;
end;