[Newmo]

Вообщем нужно что бы создавался тхт файл с именем Edit1.Text

Код:

AssignFile(f,GetCurrentDir + '\БД\Резюме\newresume.txt');
 Rewrite(f);
 writeln(f,'Фамилия:'+Edit1.text);
 Append(f);
 writeln(f,'Имя:'+Edit2.text);
CloseFile(f);

Т.е newresume.txt переименовывался в текст который вписан в Edit1
Помогите пожалуйста