[nixon232]

Хоть бы и так

Код:

procedure T_Mn.Button5Click(Sender: TObject);
var
fall, f1, f2, f3: TextFile;
s: string;
begin
..............
AssignFile(fall, OpenDialog12.FileName);
     reset(fall);
 if edit1.text='' then
 AssignFile(f1, ExtractFileDir(OpenDialog12.FileName)+'\REZ_1.txt');
     rewrite(f1);
if edit2.text='' then
     AssignFile(f2, ExtractFileDir(OpenDialog12.FileName)+'\REZ_2.txt');
     rewrite(f2);
if edit3.text='' then
     AssignFile(f3, ExtractFileDir(OpenDialog12.FileName)+'\REZ_3.txt');
     rewrite(f3);
............

begin...end
забыл в каждой проверке.