excel问题

ExcelApp := CreateOleObject( 'Excel.Application' );
ExcelApp.WorkBooks.Open( excelfile_OpenDialog.FileName );
if Excelapp.Cells[1,1].Value<>'XX' then aa
if Excelapp.Cells[1,2].Value<>'XX' then bb
if Excelapp.Cells[1,3].Value<>'XX' then cc
问题：第三句开始没反应啊，直接就then aa 了根本没判断 ，value的值提取不出来，哪里错了还是什么了····

还有就是excelApp.WorkBooks.Open ，Excelapp.Cells 我按excelapp.的时候也不会自动弹出显示，但是这样打又可以编译不报错

procedure TForm1.Button1Click(Sender: TObject);
var
  ExcelApp:Variant;
begin
  ExcelApp := CreateOleObject( 'Excel.Application' );
  try
  ExcelApp.Visible:=False;
  ExcelApp.WorkBooks.Open('D:\1.xls');
  if Excelapp.Cells[1,1].Value<>'XX' then showmessage('aa');
  if Excelapp.Cells[1,2].Value<>'XX' then showmessage('bb');
  if Excelapp.Cells[1,3].Value<>'XX' then showmessage('cc');
  finally
  ExcelApp.quit;
  end;
end;

沒有問題，很正常。。。