if SaveDialog.Execute then begin
   if FileExists(SaveDialog.FileName) then begin
     BtnSelected := MessageDlg('Такой файл уже существует, заменить?',mtWarning, [mbYes, mbNo], 0);
   end;

   if BtnSelected = mrNo then Exit;

   StringList.SaveToFile(SaveDialog.FileName);