안녕하세요!

초보 호호호호 입니다.

제가 지금 엑셀파일을 열어서 VirtualStringTree에 출력을 해주려고 합니다.

근데 잘 안됩니다.

엑셀에 있는 값을 모두 가지고와서 출력해주려면 어떻게 해야 하나요

if OpenDialog.Execute then
  begin
    XL := CreateOLEObject('excel.Application');
    XL.Visible := False;
    XL.Displayalerts := false;

    XArr := XL.workbooks.open(opendialog.FileName);
    XArr := XL.workbooks.item[1];

    XSheets := XArr.worksheets.item[1];

    AEmail.Name := XSheets.cells[1, 1];
    AEmail.Email := XSheets.cells[1, 2];

    XL.workbooks.close;
    XL.quit;
    XL := unassigned;
  end;

여기서 컬럼 값을 받아서 출력을 해줘야 하는데 여러게를 출력해주려면 for문을 사용해야 하나요??
case Column of
    0: CellText := AEmailRec.Email.Name;
    1: CellText := AEmailRec.Email.Email;
    else
      CellText := '';
  end;

고수님들 부탁드립니다.