关于Copyfile() 命令和 Savedialog控件 使用，急，急，马上给分

Question

我在程序运行的目录下生成一个文件，我想用 SAVEDIALOG 保存到指定目录下，如何解决，谢谢我的程序如下，无法实现，请帮忙
var
  currentdir:string;
  stro_str:string;
begin
  setlength(currentdir,144);
  if getcurrentdirectory(144,pchar(currentdir))<>0 then setlength    (currentdir,strlen(pchar(currentdir)));
  self.SaveDialog1.InitialDir:=currentdir+'\data';
//===以上是查找默认路径==================  if OpenDialog1.Execute then
  begin
     self.OpenDialog1.Files.LoadFromFile(self.OpenDialog1.FileName+'.lf961s'); 
无法实现，请帮忙，谢谢，如何实现，
要保存的文件是*.lf961s  end;

Answer 1

搞错了，是如下保存，上面是打开，也无法实现，
保存程序为：
  if self.SaveDialog1.Execute then  copyfile(F,self.SaveDialog1.,false);

Answer 2

self.OpenDialog1.Files.LoadFromFile(self.OpenDialog1.FileName+'.lf961s'); 这句是什么意思？看不懂。

Answer 3

CopyFile(PChar(fSource), PChar(fDest), false);

Answer 4

请问我如果用
CopyFile(PChar(fSource), PChar(fDest), false);
那我保存的路径怎么设置，呢，能用SAVEDIALOG 写吗，

Answer 5

savedialog有一个属性，可以设置保存后的默认路径呀！