文本保存是文件名处理的问题?

Question

用OpenDialog打开一个文本文件后,用Exactfilename(openDialog1.filename)获得文件名,可是小弟想保存文件时,想自动获得上述打开文本的文件名,不必在保存窗体输入文件名.可是总是实现不了,望各位大哥相助.
   SaveDialog1.FileName :=OpenDialog1.FileName;
   memo1.Lines.SaveToFile(saveDialog1.FileName );

Answer 1

SaveDialog1.FileName:=ExtractFileName(OpenDialog1.FileName);

Answer 2

用变量和SaveDialog1.filename:=ExtractFilename(OpenDialog1.filename)的方法我都试过了,还是不行,郁闷啊,搞了好半天了.