아래와 같은 형태로 하시면 됩니다.
if (SaveDialog1->Execute())
  Memo1->Lines->SaveToFile(SaveDialog1->FileName);

보통 Help를 보시면 example을 통해서 간단한 사용법이 소개됩니다.

좋은 하루 보내세요.

허접 님이 쓰신 글 :
: 안녕하세요.
: 전혀 개념없이 삽질하고 있는 허접입니다.  ㅡㅡ;;
: 현재 버튼을 클릭하면, edit의 내용이 엑셀로 저장이 되게 하려고 합니다.
: Q & A 에 엑셀에 값을 넣고 저장이 되도록 하는 내용이 있지만, 제가 원하는 기능은 SaveDialog를 띄워서 제가 원하는 파일명으로, 원하는 디렉토리에 xls 형식으로 값을 저장하는 것입니다.
: 소스는 아래와 같습니다.
: SaveDialog1->Execute();
: 이거 딸랑 해 놨으니, 당연 버튼 클릭하면, 다이얼로그 창만 뜨겠죠..  ㅡㅡ;;;
: SaveDialog1->Execute();  <- 이거 밑에 있는 엑셀 실행하고 데이터 넣고 저장하는 부분을 서로 어떻게 연결을 시켜야 할까요..  막막하네요..    ㅠ.ㅜ
: 도와주세요~~
:
:
: void __fastcall TFormMain::Button1Click(TObject *Sender)
: {
:     SaveDialog1->Execute();
:
:     WideString strTitle = "Data Save";
:     WideString strFile = "C:\\test.xls";
:     WideString FileName;
:
:     ExcelApplication1->Connect();
:     // true 화면에 보임, false 화면에 보이지 않음
:     ExcelApplication1->set_Visible(0,false);
:     ExcelApplication1->set_DisplayAlerts(TDefLCID(), false);
:     ExcelWorkbook1->ConnectTo(ExcelApplication1->Workbooks->Add());
:     //첫번째 워크시트와 연결
:     ExcelWorksheet1->ConnectTo(ExcelApplication1->Worksheets->get_Item((TVariant)1));
:     //워크시트의 이름
:
:     ExcelWorksheet1->set_Name(strTitle);
:
:     ExcelWorksheet1->Cells->set_Item((TVariant)1,(TVariant)"A",(TVariant)Edit20->Text) ;
:     ExcelWorksheet1->Cells->set_Item((TVariant)1,(TVariant)"B",(TVariant)Edit30->Text) ;
:     ExcelWorksheet1->Cells->set_Item((TVariant)1,(TVariant)"C",(TVariant)Edit40->Text) ;
:     ExcelWorksheet1->Cells->set_Item((TVariant)1,(TVariant)"D",(TVariant)Edit50->Text) ;
:     ExcelWorksheet1->Cells->set_Item((TVariant)1,(TVariant)"E",(TVariant)Edit60->Text) ;
:
:     ExcelWorksheet1->Cells->set_Item((TVariant)2,(TVariant)"A",(TVariant)Edit19->Text) ;
:     ExcelWorksheet1->Cells->set_Item((TVariant)2,(TVariant)"B",(TVariant)Edit29->Text) ;
:     ExcelWorksheet1->Cells->set_Item((TVariant)2,(TVariant)"C",(TVariant)Edit39->Text) ;
:     ExcelWorksheet1->Cells->set_Item((TVariant)2,(TVariant)"D",(TVariant)Edit49->Text) ;
:     ExcelWorksheet1->Cells->set_Item((TVariant)2,(TVariant)"E",(TVariant)Edit59->Text) ;
:
:     ExcelWorksheet1->Activate();
:     ExcelWorksheet1->SaveAs(strFile);
:
:     ExcelApplication1->Disconnect();
:     ExcelWorksheet1->Disconnect();
:     ExcelWorkbook1->Disconnect();
:
: }