//////////////////////////////////////////////////////////
//Create a new document and list all open documento paths/
//////////////////////////////////////////////////////////
var
  i,doc;
begin
  doc := Application.NewDocument;
  for i := 0 to Application.DocumentCount-1 do
  begin
    doc.Lines.Add (inttostr(i) + ' - ' + Application.Documents[i].Filename); 
  end;
end;