Tworzenie pliku

Mam taką procedurke:

procedure TForm1.Button1Click(Sender: TObject);
var F: TextFile;
begin
  AssignFile(F,Edit5.Text+'.$$$');
  Rewrite(F);
  Writeln(F, DateToStr(now)) ;
  Writeln(F, TimeToStr(now)) ;
  Writeln(F,'Imie:'+Edit1.Text);
  Writeln(F,'Nazwisko:'+Edit2.Text);
  Writeln(F,'Data urodzenia:'+Edit3.Text);
  Writeln(F,'Zawód:'+Edit4.Text);
  Writeln(F,'Komentarz:'+memo1.Text);
// etc.
  CloseFile(F);
end;

A jak zrobic żeby plik tworzył się w wybranym katalogu ??
Z góry dziękuje!!javascript:append_smile('[!!!]')
javascript:append_smile('[!!!]')

AssignFile(F,Edit5.Text+'.$$$');

to chyba jak masz to to tam sie podaj katalog nie?

tylko pamietaj ze katalog musi istniec