[Tonyy]

при сохранении строк в текстовый файл последняя строка обрезается. я не могу понять в чем дело.

Код:

procedure TForm1.btn5Click(Sender: TObject);
var
  cell:integer;
  v:TextFile;
  i,j:Integer;
begin
if Save1.Execute then
AssignFile(v,Save1.FileName);
Rewrite(v); 
for i:=0 to lst2.Count-1 do begin
  cell:=0;
  for j:=0 to lst1.count-1 do begin
    if lst2.Items.Strings[i]=lst1.Items.strings[j] then
      inc(cell);

    Application.ProcessMessages();
  end;
  if cell=0 then 
  writeln(v,lst2.Items.Strings[i]);
  pb1.Position:=Round((i+1)*100/lst2.Count);
end;
Application.MessageBox(' Завершено ', 'Служебное сообщение');
pb1.Position:=0;
end;

ниже фрагмент файла с ошибкой:
...............................................
5041_130305_122621.sgy
5041_130305_123705.sgy
5041_130305_124235.sgy
5041_130