Не выводит числа в Excel через Delphi

[Light05]

в общем у меня такая проблема,надо через Delphi открыть Excel и сделать на другой кнопке чтобы он выводил числа от 1 до 10 в столбик...
вообщем сделал я это так-
xl.cells[1,1].value:=1;
xl.cells[2,1].value:=2;
xl.Selection.AutoFill (xl.Range['A1:A10'], xlFillSeries);
И все работает=) но проблема в том,что выводит только в столбце А...
Если пробую менять на В или другие,ставит первые 2 цифры,и выдает ошибку...я уже всю голову сломал,не пойму почему так происходит=(
Если кто знает,помогите пожалуйста=) вот полный код....

unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, COMObj, ExcelXP, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
xl,doc,tb,q:variant;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
xl:=createOLeObject('Excel.Applicat ion');
xl.Workbooks.Add;
xl.visible:=true;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
xl.cells[1,1].value:=1;
xl.cells[2,1].value:=2;
xl.Selection.AutoFill (xl.Range['A1:A10'], xlFillSeries);
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
xl.cells[1,2].value:=1;
xl.cells[2,2].value:=2;
xl.Selection.AutoFill (xl.Range['B1:B10'], xlFillSeries);
(xl.Range['B1:B10'].Select)
{ Selection.AutoFill Destination:=Range("D1:D10"), Type:=xlFillDefault
Range("D1:D10").Select }
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
close
end;
end.

[mihali4]

ставит первые 2 цифры,и выдает ошибку

Ну, а ошибку привести - терпения не хватило?
Или опять - вся надежда на экстрасенсов?

[Рустам]

procedure TForm1.Button2Click(Sender: TObject);
begin
xl.cells[1,1].value:=1;
xl.cells[2,1].value:=2;
xl.Selection.AutoFill (xl.Range['A1:A10'], xlFillSeries);
end;

- А ОБЯЗАТЕЛЬНО ТАКИМ СПОСОБОМ ЦЫФЕРКЫ ВЫВОДИТЬ?

[Serge_Bliznykov]

Light05, исправьте код на такой:

procedure TForm1.Button3Click(Sender: TObject);
begin
  xl.cells[1,2].value:=1;
  xl.cells[2,2].value:=2;
  xl.Range['B1:B2'].Select;
  xl.Selection.AutoFill (xl.Range['B1:B10'], xlFillSeries);
end;

[Light05]

Сообщение от Serge_Bliznykov

Light05, исправьте код на такой:

procedure TForm1.Button3Click(Sender: TObject);
begin
  xl.cells[1,2].value:=1;
  xl.cells[2,2].value:=2;
  xl.Range['B1:B2'].Select;
  xl.Selection.AutoFill (xl.Range['B1:B10'], xlFillSeries);
end;

Спасибо большое=) теперь все работает...я был близок к истене,прост не так записал=( тоже пытался сделать так,но у меня получилось как то так=) - (xl.Range['B1:B2'].Select);