Delphi的SaveDialog例子，多谢了

求一个Delphi的SaveDialog例子，谢谢了！
各位好：

我正在做一个文件导出的东西，用到SaveDialog，不知道怎么用，网上代码残缺，希望找个完整的例子，谢谢！

顺便问下，delphi自带的例子在哪里？

[解决办法]
f1 搜索savedialog或者键入savedialog按f1
savedialog1.filter := '*.txt|*.txt';
savedialog1.title:='balabala';
if savedialog1.execute then
···
savedialog1.filename就是返回值

[解决办法]

Delphi(Pascal) code

\{前面的代码}if  SaveDialog1.execute thenbegin  {这里输出文件名} := SaveDialog1.Filename;    {这里继续}end;