[Gribok]

Доброго времени суток!
у меня возникла проблема

вот код

Код:

procedure TForm1.Button2Click(Sender: TObject); 
var 
XL, XArr: Variant; 
i:Integer; 
j:Integer; 
begin 
XArr:=VarArrayCreate([1,ADOTable1.FieldCount],varVariant); 
XL:=CreateOLEObject('Excel.Application'); // Nicaaiea OLE iauaeoa 
XL.WorkBooks.add; 
XL.visible:=False; 
j := 1; 
//выгрузка 1го выделеного 
if RadioButton1.Checked then 
begin 
For i:=0 to ADOTable1.FieldCount-1 do 
XArr[i+1] := ADOTable1.Fields.Value; 
XL.Range['A'+IntToStr(j), 
CHR(64+ADOTable1.FieldCount)+IntToStr(j)].Value := XArr; 
end else 
//Выгрузка всей БД 
Begin 
while not ADOTable1.Eof do 
begin 
i:=1; 
while i<=ADOTable1.FieldCount do 
begin 
ADOTable1.First; 
XArr := ADOTable1.Fields[i-1].Value; 
i:= i+1; 
XL.Selection.Font.Name:='Arial cur'; 
XL.Selection.Font.Size:=10; 
XL.selection.Columns.AutoFit; 
XL.Range['A1','A1'].select; 
end; 
end; 
end; 
XL.visible:=True; 
end; 
end. 

Значит когда RadioButton1 включин выгружается только выделеная строка таблици Это работает нормально все выгружается
а когда выделение RadioButton1 снимаю то виснет и чекрез некоторое время дает ошибку
ЛЮди пожалуйсто подскажите где код криво написано!!!
БУду оченьблагодарин!