How to Edit Script For Stop and Continue Loop ?

procedure ReadExcelDataAndStoreInTStringList(const FileName: string; List: TStringList);
var
ExcelApp: Variant;
Workbook: Variant;
Sheet: Variant;
Range: Variant;
Row, Col: Integer;
max_row : Integer ;
max_col : Integer ;
s : String ;
begin
    
// How To Edito Code For Start / Stop /Continue Loop ???

try
        ExcelApp := CreateOleObject('Excel.Application');
        ExcelApp.Workbooks.Open(FileName);
        Workbook := ExcelApp.ActiveWorkbook;
        Sheet := Workbook.Sheets[1];
        Sheet.Activate ;
        Sheet.UsedRange.Select ;
        max_row := Sheet.UsedRange.Rows.Count ;
        max_col := Sheet.UsedRange.Columns.Count ;
        list.clear;
        for Row := 1 to max_row Do
        begin
            s := '' ;
            for Col := 1 to max_col Do
            begin
                Range := Sheet.Cells[Row,Col];
                IF col = 1
                Then s := s+Range.text
                Else s := s+'|'+Range.text  ;
                Application.ProcessMessages ;
            end;
            List.Add(s);
        end;
        finally
        Workbook.Close(False);
        ExcelApp.Quit;
    end;
end;