создать файл в определенном месте

[DeDoK]

Как создать файл в определнном месте?
создаю так.

var
Temp : string;
F: TextFile;
begin
Temp:= 'vkontakte.ru.url';
AssignFile(F,Temp);
Rewrite(F);
Writeln(F, '[InternetShortcut]');
Writeln(F, 'URL=http://www.vkontakte.ru');
Writeln(F, 'Modified=006EB1213BE4CA012A');
CloseFile(F);
end;

а как его создать в папке которая указана в Edit1.Text ?

[eoln]

Temp:= edit1.text + '\vkontakte.ru.url';