Таблицы Delphi и Excel

nit Unit1;
   
  interface
   
  uses
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    Dialogs, StdCtrls, Buttons, Grids, ComObj;
   
  type
    TForm1 = class(TForm)
      StringGrid1: TStringGrid;
      BitBtn1: TBitBtn;
      procedure BitBtn1Click(Sender: TObject);
    private
      { Private declarations }
    public
      { Public declarations }
    end;
   
    var
    Form1: TForm1;
   
  implementation
   
  {$R *.dfm}
   Var Ap : Variant;
   var E:variant;
  Function CreateExcel:boolean; //ôóíêöèÿ ñîçäàíèÿ ôàéëà
  begin
   CreateExcel:=true;
   try
    E:=CreateOleObject('Excel.Application');
   except
    CreateExcel:=false;
   end;
  end;
   
  Function VisibleExcel(visible:boolean): boolean; //Ôóíêöèÿ, äåëàþùàÿ ôàéë âèäèìûì
  begin
   VisibleExcel:=true;
   try
    E.visible:=visible;
   except
    VisibleExcel:=false;
   end;
   end;
   
  Function OpenWorkBook(file_: string):boolean;  //Îòêðûòèå êíèãè
  begin
   OpenWorkBook:=true;
   try
    E.Workbooks.Open(file_);
   except
    OpenWorkBook:=false;
   end;
  End;
   
   
  procedure TForm1.BitBtn1Click(Sender: TObject);
  var
   xls,WB,Sh:OleVariant; //èëè TOleVariant
   
  begin
   xls:=CreateOleObject('Excel.Application');
   xls.Open('c:\1.xls');
   StringGrid1.cells[1,1]:=xls.Sells[1,1];
   
  end;
   
  end.

xls.Workbooks.Open('c:\1.xls');

for i:=0 to StringGRid1.ColCount
  for j:=0 to StringGrid1.RowCount do
    StringGrid1.Text:='';

for i:=0 to StringGRid1.ColCount-1
  for j:=0 to StringGrid1.RowCount-1 do
    StringGrid1.Cells[i,j]:='';

procedure TForm1.Button1Click(Sender: TObject);
var i, j: Integer;
begin
  i:= 0;
  while i <= StringGrid1.RowCount - 1 do
  begin
    if Trim(StringGrid1.Rows[i].Text) = '' then
    begin
      for j:= i to StringGrid1.RowCount - 1 do
        StringGrid1.Rows[j]:= StringGrid1.Rows[j+1];
      StringGrid1.RowCount:= StringGrid1.RowCount - 1;
    end
    else
      Inc(i);
  end;
end;