请问用正则TPerlRegEx如何删除空行？

[Lonebone]

比如：
abc

cdef


ghi

ijk
想要整理为
abc
cdef
ghi
ijk
我用下面的写法：
var
reg: TPerlRegEx;

reg := TPerlRegEx.Create;
try
with reg do
begin
Options := [preMultiLine];
Subject := Memo1.Text;

RegEx := '\n\n';
Replacement := '\n';
ReplaceAll;

Memo2.Text:= Subject;
end;
finally
reg.Destroy;
end;

为什么没有反应呢？多谢了

[gobiz]

空白行？
是'\n'还是'\r\n'呢？