Сохранить через TSaveDialog..?

[kta87]

Реализую сохранение из 2 компонентов TChart картинки в bmp формате, + сохраняю TstringGrid в Excel. Делаю это так

var
  ExcelApp, Sheet: variant;
  Col, Row: Word;
begin
 if SaveToReport.Execute() = True then
   IntensityGrath.SaveToBitmapFile(SaveToReport.FileName + '.bmp');
   DCUGraph.SaveToBitmapFile(SaveToReport.FileName + '.bmp');
   // StringGrid -->> Excel
   ExcelApp := CreateOleObject('Excel.Application');
   try
    ExcelApp.Visible:= False;
    ExcelApp.Workbooks.Add;
    Sheet:= ExcelApp.ActiveWorkBook.WorkSheets[1];
    for Col:= 0 to ListReport.ColCount -1 do
    for Row:= 0 to ListReport.RowCount -1 do
    Sheet.Cells[Row + 1, Col +1]:= ListReport.Cells[Col, Row];
    ExcelApp.ActiveWorkbook.SaveAs(GetExcelSaveAs);
   finally
    ExcelApp.Application.Quit;
    ExcelApp:= Unassigned;
    Sheet:= Unassigned;
   end;
end;

В итоге в папке картинка с 1 TChart и Excel, а картинка со 2 Tchart ложится в папку с exe'шником + сам TSaveDialog подвешивается. Что не так делаю?
П.С. Delphi XE 2.

[Stilet]

Вроде все законно, однако я бы поставил точку прерывания на первый оператор в условии и протрассировал код.

[kta87]

а я кажется понял в чем дело... получается что 2 файла с расширением bmp имеют одинаковое имя... видимо придется использовать несколько TSaveDialog или вызывать 1 но трижды...