디자인 모드로 하시고...
툴 파렛트에서 버튼을 하나 내려 놓습니다.
그리고
툴파렛트에서

Dialogs --> TSaveDialog   을 하나 내려 놓습니다.

버튼에 클릭 이벤트에 코딩을 하는데...

void __fastcall TForm1::Button1Click(TObject *Sender){
	if(!SaveDialog1->Execute())return;
	ShowMessage("선택한 파일: "+ SaveDialog1->FileName);
}

요로케....  그럼.. 만수 무강 하소서~