Uses ComObj;

var ExcelApp:variant;

procedure TForm1.Button1Click(Sender: TObject);
begin
//Démarrer Excel
ExcelApp:=CreateOleObject('Excel.Application'); //Crée un objet unique non initialisé de la classe spécifiée par le paramètre 'Excel.Application'
ExcelApp.Application.Visible:=True; //Rends l'application Word visible
ExcelApp.Workbooks.Add; //Crée un nouveau document
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
//Quitter Excel
ExcelApp.Quit;
ExcelApp:=UnAssigned;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
//Exporter
ExcelApp.Cells[1,1].Value:=Edit1.Text;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
//Importer
Edit1.Text:=ExcelApp.Cells[1,1];
end;