[noviceQ]

Как проверить что пустая строка (пробелы) и не записывать в файл?

Код:

Writeln(f, Trim(RegExp.Match[1]));

[lmikle]

Ну а самому подумать?

Код:

var
  Buf : String;
begin
  ...
  Buf := Trim(RegExp.Match[1]);
  If Buf <> '' Then
    WriteLb(f, Buf);

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

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

Код:

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

[noviceQ]

Сообщение от lmikle

Ну а самому подумать?

Так сделал.

Код:

...
 if Trim(RegExp.Match[1]) <> '' then
  Writeln(f, Trim(RegExp.Match[1]));
...

[Bargest]

Вариант lmikle лучше, т.к. Trim вызывается только один раз.