Создание и работа с файлом из среды

[-BlindGuardian-]

procedure TForm3.RzShapeButton1Click(Sender: TObject);
var f1:textfile;
begin
surname:=edit2.text;
surname1:=(surname+'.txt');
FileCreate(surname1);
end;

Вот таким своеобразным способом я создаю пустой txt файл под названием, которое пользователь вводит. Вопрос: Каким образом привязать данный файл к переменной f1? Ведь по-сути я конкретного имени файла не знаю, лишь знаю из какой переменной оно будет браться.
Спасибо.

[Пепел Феникса]

procedure TForm3.RzShapeButton1Click(Sender: TObject);
var f1:textfile;
begin 
 assignfile(f1,edit2.text+'.txt');
 rewrite(f1);
 //пишем
 closefile(f1);
end;

так же кстати у вас в surname1 было полное имя.

[uberchel]

Не совсем понятен вопрос, наверное это надо было:

var
 f1:textfile;
begin
 AssignFile(f1, edt1.Text + '.txt');
 Rewrite(f1);
 CloseFile(f1);
end;

Блин опоздал ))

[-BlindGuardian-]

Спасибо вам обоим