[lmikle]

Угу, а вот так в данном случае не проще:

Код:

function GetPlainText(AList : TStringList) : String;
var
  I : Integer;
begin
  Result := AList[0];
  For I := 1 To AList.Count-1 Do Result := Result + ' ' + AList[i];
end;

...

Writeln(f,GetPlainText(TStringList(Memo1.Lines)));