Чтение из файла Excel и перенос данных в memo

procedure TForm1.open1Click(Sender: TObject);
begin
  Excel := CreateOleObject('Excel.Application');
if dlgOpen1.Execute then
    i:=dlgOpen1.FileName;
    Excel.workbooks.open[dlgOpen1.FileName];
    s:=Excel.Range['a1']; - задается координата ячейки, а необходим весь столбец.
    mmo1.Text:=s;
    Excel.ActiveWorkbook.Close;
end;

var
Excel:Variant;
j, k: integer;
  s:string;
const xlCellTypeLast=$000000B;
begin
Excel :=CreateoleObject('Excel.Application');
dlgOpen1.Filter:=' Файлы MS Excel|*.xls;*.xlsx|';
if  not dlgOpen1.Execute then Exit;
Excel.Workbooks.Open(dlgOpen1.FileName, False);
j :=excel.ActiveCell.SpecialCells(xlCellTypeLast).Row;// последняя не пустая строка в документе
k :=2; //считываем со 2-й строки
  while k<>j+1 do
  begin
s :=excel.cells[k, 1].value; //значение k-й строки 1-го столбца
 inc(k); //переходим на след. строку
Memo1.Lines.Add(s);
end;
.....
.....
//завершение работы с Excel
  Excel.Workbooks.Close;
  Excel.Quit;
 Excel :=unassigned;
end;

procedure TForm1.mniN3Click(Sender: TObject);
 begin
   q:=1122;
   w:=1587;
   dlgPnt1.Execute;
   Printer.Orientation:= poLandscape;
   q:=Printer.PageHeight;
   w:=Printer.PageWidth;
   form1.Print;
 end;