[Delphi} Zapis do pliku wybranego przez użytkownika

Witam wszystkich forumowiczów,

Otóż mam problem, polegający na tym, że mam bazę danych, która podczas kończenia programu pyta się, czy zapisać zmiany. O tak:

Procedure TFormaGlowna.FormClose(Sender: TObject; Var Action: TCloseAction);
Var
  I:Integer;
Begin
  If PlikZmieniony
  Then Case Application.MessageBox('Zapisać Zmiany?','Pytanie!',3) Of
    mrYES: Begin
      Rewrite(Plik);
      For I:=0 To Ile Do Write(Plik,T[I]);
      CloseFile(Plik);
    End;
    mrNO: Begin
    End;
    mrCancel: Action:=caNone;
    End;
End;

Tyle, że oczywiście baza zawarta jest w jednym pliku:

  AssignFile(Plik,'Film.dat');
  If FileExists('Film.dat')
    Then Reset(Plik)
    Else Rewrite (Plik);
  While Not Eof(Plik) Do Begin
    Inc(Ile);
    Read(Plik,T[Ile]);
  End;

A ja chciałbym, aby użytkownik, sam wybrał sobie nazwę pliku, czyli coś w stylu zapisz jako. Czy ktoś mógłby mnie nakierować? Na początku myślałem, żeby w AssignFile wpisać zmienną, ale nie udaje mi się to w żaden sposób. Proszę o pomoc. Z góry dzieki...

Moze najprostrzy przyklad Cie naprowadzi:

if not SaveDialog1.Execute then
exit;
AssignFile(f, SaveDialog1.FileName);
//itd..

Myślę, myślę, ale nie bardzo wiem o co chodzi. Musiałbym stworzyć nową formę SaveDialog1 i stworzyć edita gdzie użytkownik wpisuje nazwę pliku i wysyłana jest ona do AssignFile?? Dobrze rozumuję??

w zakładce Dialogs masz komponent TSaveDialog wystarczy wrzucić go na formę - kod jak wyżej :)