Помогите с сохранением файла

[Денис1]

Я создал компонент SaveDialog1 и назначил расширения *.txt и *ini
Добавил код при нажатии на кнопку

 if OpenDialog1.Execute then
    Begin
      if SaveDialog1.Filterindex = 2 then Memo1.Lines.LoadFromFile(OpenDialog1.FileName + '.ini');
      if SaveDialog1.filterindex  = 1 then Memo1.Lines.LoadFromFile(OpenDialog1.FileName + '.txt');
      ShowMessage('Файл успешно загружен!');
    End
   else
     ShowMessage('Загрузка файла отменена пользователем!');

Но какое бы расширение не выбирать файл сохраняется с расширением *.txt . Как сделать чтобы при выборе сохранялось с выбраным расширением?

[cotseec]

все смешалось...
для чего в загрузке в мемо некоторого файла используется индекс диалога сохранения (может это какой-то хитрый алгоритм)? можно переписать так:

if OpenDialog1.Execute then
Begin
   Memo1.Lines.LoadFromFile(OpenDialog1.FileName);
   ShowMessage('Файл успешно загружен!');
End else
   ShowMessage('Загрузка файла отменена пользователем!');

при указании файла для загрузки через опендиалог (а в коде приведена именно загрузка) расширение файла дописывать не надо, полный путь к файлу, выбранному пользователем, предоставить опендиалог.

[Денис1]

Я уже со всем разобрался