Fórum quebra de linha em texto #490821

estou tendo um problema ao salvar os itens da minha listview.
Quando salvar queria que salvase o caminho e a musica .
Ate ta salvando assim mas primeiro esta salvando o caminho ai pula uma linha e salva a musica. segue ai meu codigo.


var

arq: textfile;
linhas: string;
begin

if SaveDialog1.Execute then
if (trim(SaveDialog1.FileName) <> '') then
begin
assignfile(arq, SaveDialog1.FileName + '.txt');
if (FileExists(SaveDialog1.FileName)) then
append(arq)
else
rewrite(arq);

for i := 0 to lista2.items.Count - 1 do
begin
linhas:=extractfilepath(lista2.Items.Item[i].Caption)+extractfilename(lista2.Items.Item[i].Caption);
Writeln(arq, linhas);
end;
end;
closefile(arq)
end;