[lmikle]

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

Код:

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