Здравствуйте, Kaz1972!
Предлагаю следующую реализацию.
В раздел Uses необходимо добавить модуль ComObj.

Приложение:
procedure TForm1.Button1Click(Sender: TObject);
var
WorkBook, Sheet: variant;
arr: array of integer;
i, kol, stolb: integer;

begin
E:= CreateOleObject('Excel.Application'); E.Visible:= True;
WorkBook:= E.WorkBooks.Open('c:\1.xls');
Sheet:= WorkBook.ActiveSheet;
kol:= 0; SetLength(arr, kol);
stolb:= 1; {номер столбца}
for i:= 1 to 20 do {диапазон строк}
begin
kol:= kol+1; SetLength(arr, kol); {счетчик массива}
try {на случай если попадется некорректное значение}
arr[kol-1]:= Sheet.Cells[i, stolb];
except
arr[kol-1]:= 0;
end;
end;
WorkBook.Save; WorkBook.Close;
E.Quit; E:= UnAssigned;

end;