Connect=Provider=MSDASQL.1;Persist Security Info=False;Extended Properties="DSN=EXCEL;DBQ=C:\TEMP\Query\Win64\Debug\book.xls;DefaultDir=C:\TEMP\Query\Win64\Debug;DriverId=790;FIL=excel 8.0;MaxBufferSize=2048;PageTimeout=5"
Sql=select * from [Лист1$]

procedure TForm1.Button1Click(Sender: TObject);
begin
  memo1.Lines.LoadFromFile('setup.txt');
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  ADOQuery1.ConnectionString:=memo1.Lines.Values['Connect'];
  ADOQuery1.SQL.Text:=memo1.Lines.Values['Sql'];
  try
    ShowMessage('Open');
    ADOQuery1.Open;
  except
     on E: Exception do begin
       ShowMessage(E.Message);
     end;
  end;
end;