cxDBPivotGrid сохранить и вигружать из ini Файл

[xxbesoxx]

Здравствуйте ребята . У меня установлен дополнительные компоненты DevExpress потому что задача такой что надо использовать DBPivotGrid = развернуть таблица . Пользователь когда будет перетащить существующей ,,поля=столбцов" который ест запросе в ADOQuery . ! что он мог сохранить расположение в ini файле и после перезагрузки программы почитать из ini файле.
Для этого я сохраняю это расположение DBPivotGrid вот так

procedure TMain.BitBtn1Click(Sender: TObject);
//---------- Код для сохранение
var
  AMemoryStream: TMemoryStream;
begin
  AMemoryStream := TMemoryStream.Create;
  try
    cxDBPivotGrid1.StoreToStream(AMemoryStream);
    AMemoryStream.SaveToFile('GBPiv.ini');
finally
    AMemoryStream.Free;

   end;

читаю так

procedure TMain.BitBtn2Click(Sender: TObject);
var
  AMemoryStream: TMemoryStream;
begin
  AMemoryStream := TMemoryStream.Create;
  try
    AMemoryStream.LoadFromFile('GBPiv.ini');
    cxDBPivotGrid1.RestoreFromStream(AMemoryStream);

  finally
     AMemoryStream.Free;
  end;

Работает все нормально ,
ВОПРОС: Можно переделать это код использовать компонент SaveDialog и OpenDialog что при нажатое кнопки пользователь мог сохранить ini файле и он мог назвать имя. потом что открыть и почитать через OpenDialog

Пожалуйста помогите переделать SaveDialog и OpenDialog

[xxbesoxx]

Делаю так и виводить ошибка

procedure TMain.BitBtn1Click(Sender: TObject);
var
AMemoryStream: TMemoryStream;
FName : string;
begin
SaveDialog1.FileName := Fname;
if SaveDialog1.Execute then
begin
FName := SaveDialog1.FileName;
cxDBPivotGrid1.StoreToStream(AMemor yStream);
AMemoryStream.SaveToFile(FName);

end;

end;

Голова не работает пожалуйста помогите

[xxbesoxx]

Тема можно закрыть