uses
  Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;
PROCEDURE symbolload(selectedFile :string;Spath:string); 
begin
 selectedFile := '';
 
 Spath := 'C:\Users\green\AppData\Roaming\MetaQuotes\Terminal\D0E8209F77C8CF37AD8BF550E51FF075\MQL5\Files';
end
procedure Button1Click(Sender: TObject); 
var    
selectedFile: string;
i : integer; 
Spath : string;
begin
selectedFile := '';
Spath := 'C:\Users\green\AppData\Roaming\MetaQuotes\Terminal\D0E8209F77C8CF37AD8BF550E51FF075\MQL5\Files';
for i := 0 to listbox1.Items.Count -1 do
begin 
 if (listbox1.ItemIndex >1000) and(listbox2.ItemIndex = 0 ) then                            
    sList.LoadFromFile(symbolload(sPath , selectedFile));
    chart(symbolload(Spath , selectedFile)); 
    SetFocus;
    ChartSave;
    end;                    
end;