procedure TForm1.BitBtn1Click(Sender: TObject);
var Fil:TextFile;
    SaveDialog1:TSaveDialog;
begin
 SaveDialog1:=TSaveDialog.Create(nil);
 if SaveDialog1.Execute then
 begin
  assignfile(Fil,SaveDialog1.FileName);
  //...//
 end;
 SaveDialog1.Free;
end;