Äh, wieso konkatenierst Du die einzelnen Zeilen nicht, wobei Du nur nichtleere Zeilen addierst?
Delphi-Quellcode:
Procedure AddNonEmpty (aLines : TStrings; Const aLine : String);
Begin
If Trim (aLine)<>'' Then aALines.Add(aLine);
End;
Und schreibst dann 'aLines.Text' in eine TfrxMemo?