[Страдалецъ]

Тут хитрость в том, что даже если у вас строка будет пустая, в файл запишется #13#10 которые WriteLn генерит в конце любой строки.
Можно переписать ваш код так:

Код:

Write(f, IfThen(Length(Trim(RegExp.Match[1]))=0,'',RegExp.Match[1]+#13#10));