delphi 调用excel的宏，并传递参数给宏

excel单元格中要显示 换行的字符串，没有找到直接的方法，所以通过调用宏来实现
宏：

Sub  Macro1(var1  As   String , var2  As   String )
'
'  Macro2 Macro
'  宏由 liuin 录制，时间: 2007-10-26
'
    ActiveCell.FormulaR1C1  =  var1  +   Chr ( 10 )  +  var2
End Sub

delphi中调用
MySheet.Range['D13'].select;
 xlapp.run('macro1','100以上'+qry1.Fields[0].AsString+'台','80以下'+qry1.Fields[1].AsString+'台');

完整代码：

function TFrmDBCZ_JH_FIND.Gen_BYQTSJBS(date:  string ): Boolean;    // 变压器台数及表数
var
  j:Integer;
begin
  filename : =  ExtractFilePath(Application.ExeName) + ' 报表模版变压器台数及表数.xls ' ;
  savefile : =  ExtractFilePath(Application.ExeName) + ' 报表'+copy(date,1,4)+ ' 年 ' +copy(date,6,2)+ ' 月变压器台数及表数.xls ' ;
   if  FileExists(savefile) then
  begin
     if  n