[Alegun]

Поторопился, nixon232, сейчас условие выглядит как если едит.текст пустой, то эссайнить файл, а должно

Код:

...
if edit1.text<>'' then //if edit1.text='' then
begin 
 AssignFile(f1, ExtractFileDir(OpenDialog12.FileName)+'\REZ_1.txt');
     rewrite(f1);
end;
...