كيف ممكن أن أقرأ ملف text وأكتب محتواه في عدة ملفات أخرى

[NOna]

كود :

begin OpenDialog1.Execute; AssignFile(MyFile,OpenDialog1.FileName); Reset(MyFile); AssignFile(NewFile,'C:/File.txt'); Rewrite(NewFile); Repeat Readln(MyFile,Content); Writeln(NewFile,Content); Until EOF(MyFile); CloseFile(MyFile); CloseFile(NewFile); end;

لقد قمت بهذه العمليه لأقرأ الملف وأكتبه في ملف أخر

ولكن السؤال كيف من الممكن أنه عندما يقرأ السطر (---------------------) يفتح ملف أخر ويبدأ الكتابه به وهكذا حتى تنتهي قراءت الملف الكبير