求助操作Excel中，如何创建、修改和删除宏(100分)

如下代码（打开Excel、打开一个xls文件，创建、执行、删除宏），其中求助：

uses
Excel2000, OleCtnrs, OleServer, VBIDE2000, ComObj, ActiveX,

……

procedure TForm1.Button1Click(Sender: TObject);
var
ExcelTemp: String;
ExcelID: Variant;
begin
if OD.Execute then
begin
ExcelID := CreateOleObject('Excel.Application');
ExcelID.Visible := True;
ExcelID.Caption := '示例';
ExcelTemp := OD.FileName;
ExcelID.WorkBooks.Open(ExcelTemp);
end;
//新建一个“宏a”
//“宏a”的内容从Memo1.Lines读入，从a.txt读入也可以
ExcelID.Run('宏a');
//删除“宏a”
end;

求助：
//新建一个“宏a”
//“宏a”的内容从Memo1.Lines读入
//删除“宏a”
上述三句该怎么写？或者在控件中如何实现也可以
万分感激

是不是嫌分值太低？急求啊，加我ＱＱ：455192323，Ｑ币支付，再加20Ｑ币

再加到50Ｑ币，不知道怎样还可以加积分？教我我加到200分。

修改宏大代码倒是没有
其他两个有
不过是vba的

一、添加宏是如何实现的？有在Delphi中实现的吗？实在不行的ＶＢ也可以，我最多多建个ＶＢ的exe来调用。顺便把Word的也教了吧，求您了。[]

二、如果宏在不变的情况下，是否有“全局变量”概念？比如在整个xls文件中的一个全局变量，如果有的话，那么我的要求：能够改变量就足够了。
1、改变量
2、如何在宏中用变量
3、如何在Delphi中改xls文件中的变量

求教啊，会的话请加我ＱＱ：455192323，说明Delphi+excel