Zapis do pliku z okienkiem

Hello - pomozecie ?

Mam kawalek kodu:

1 AssignFile(TF, 'dane.txt');
2 ReWrite(TF);
3 Writeln(TF,' SIAKIS TEKST');
4 Writeln(TF,'------------------');
5 Writeln(TF);
6 ...

Jak zmodyfikowac kod - by otwieralo sie okienko z wyborem lokalizacji a pozniej zapisywalo mi do pliku to wszystko w linijkach 3,4, ... ; a nie jak jest teraz ze na sztywno jest podana lokalizacja;

Nie moge tego sie nigdzie doszukac, a z Delphi to ja niewiele wiem ;-|

Pozdrawiam;

Wrzuć OpenDialog na formę i napisz zamiast
  AssignFile(TF, 'plik.txt');
tak
  if OpenDialog.Execute() then begin
    AssignFile(TF, OpenDialog.FileName);
    ReWrite(TF);
    ....
  end;