[novashdima]

эх.... ок, вот начальная процедура

Код:

procedure TMainForm.SaveButtonClick(Sender: TObject);
begin
  if SaveDialog.Execute then
  if FileExists(SaveDialog.FileName) then
    begin
      if (MessageDlg('Файл уже существует.' + #13#10 + 'Переписать?', mtConfirmation, mbOkCancel, 0) <> mrOk)
      then Exit;
    end
    else
      IniFile.IniOptions.SaveToFile(SaveDialog.FileName);
end;

Вот добавил строку:

Код:

procedure TMainForm.SaveButtonClick(Sender: TObject);
begin
  if SaveDialog.Execute then
  if FileExists(SaveDialog.FileName) then
    begin
      if (MessageDlg('Файл уже существует.' + #13#10 + 'Переписать?', mtConfirmation, mbOkCancel, 0) <> mrOk)
      then Exit
      else IniFile.IniOptions.SaveToFile(SaveDialog.FileName);
    end
    else
      IniFile.IniOptions.SaveToFile(SaveDialog.FileName);
end;