LineRemove example for Delphi

procedure TForm1.Button6Click(Sender: TObject);
var
    nRet : Integer;
begin
    {Line Remove}
    {This examples removes vertical lines that are at least 200 pixels in length}
    {and no more than 5 pixels in width}
    {The lines can have gaps up to two pixels in length}
    {The LineRemove Event is used to display information about each line removed}
    LEADImage1.DocCleanSuccess := SUCCESS_REMOVE;
    nRet := LEADImage1.LineRemove(LINE_USE_GAP, 200, 5, 7, 1, 2, 0, LINEREMOVE_HORIZONTAL);
end; 

procedure TForm1.LEADImage1LineRemove (Sender: TObject; nStartRow,
  nStartCol, nLength: Integer; hRgnLine: L_HRGN);
begin
   OutputDebugString(pChar('Line at ' + IntToStr(nStartRow) + ',' + IntToStr(nStartCol) + ' Length=' + IntToStr(nLength)));
end;