批量处理文件,按某种规则来替换,正则表达式怎么写,跪求,在线等.(200分)

我想用一个程序,修改PAS文件里的东西...,因为有很多,所以想用写一个正则表达式的程序来批量处理这些文件
规则如下:

有变量的情况
如果
Application.MessageBox('是否要删除'+变量1+'吗？',
pChar(Application.Title),
MB_ICONASTERISK + MB_YESNOCANCEL + MB_DEFBUTTON1); 有可能没有这个MB_DEFBUTTON1
这要换成
showmsg('是否要删除(1)吗？',VarArrayOf([变量1]),1)
---------------------------------------------
如果
Application.MessageBox('是否要删除'+变量1+'吗？',
pChar(Application.Title),
MB_ICONASTERISK + MB_YESNOCANCEL + MB_DEFBUTTON2);
这要换成
showmsg('是否要删除(1)吗？',VarArrayOf([变量1]),2)

---------------------------------------------
如果
Application.MessageBox('是否要删除'+变量1+'吗？',
pChar(Application.Title),
MB_ICONASTERISK + MB_OK);
这要换成
showmsg('是否要删除(1)吗？',VarArrayOf([变量1]),0)
--------------------------------------------
如果
Application.MessageBox('是否要删除吗？',
pChar(Application.Title),
MB_ICONASTERISK + MB_OK);
这要换成
showmsg('是否要删除吗？',VarArrayOf(['']),0)
--------------------------------------------------------
如果
Application.MessageBox('是否要删除'+变量1+'吗？'+变量2+变量3.....,
pChar(Application.Title),
MB_ICONASTERISK + MB_YESNOCANCEL + MB_DEFBUTTON1); 有可能没有这个MB_DEFBUTTON1
这要换成
showmsg('是否要删除(1)吗(2)(3)(4)..？',VarArrayOf([变量1,变量2,变量3,变量4...]),1)


这样的正则表达式该怎么写.

怎么没能回答呀,急死我了.谢谢大家,继续在线.

大富翁的高手们，难道没人会吗？