Fórum abrindo excel #215667

uses ComObj;
.
.
.
procedure TForm1.Button1Click(Sender: TObject);
var excel: variant;
begin

      excel := CreateOleObject(´Excel.Application´);
      excel.Workbooks.add(1);
      excel.Cells.Select;
      excel.Selection.NumberFormat := ´@´;


      excel.cells[1,1] := ´Teste´;
      excel.columns.AutoFit;
      excel.cells[1,1].Select;
      excel.visible := true;

end;