＜＜名前をつけて保存＞＞現在のソース

procedure TForm1.SaveAs1Click(Sender: TObject);
begin
if SaveDialog1.Execute then
begin

if SaveDialog1.FilterIndex=1 then
begin
Memo1.Lines.SaveToFile(SaveDialog1.FileName);
end;

if SaveDialog1.FilterIndex=2 then
begin
SaveDialog1.DefaultExt:='html';
Memo1.Lines.SaveToFile(SaveDialog1.FileName);
end;

if SaveDialog1.FilterIndex=3 then
begin
Memo1.Lines.SaveToFile(SaveDialog1.FileName);
end;

CFileName:= ExtractFileName(SaveDialog1.FileName) ;
Form1.Caption := CFileName + '試作メモちょう';
end;
end;


※オブジェクト インスペクタの変更箇所

　　FileName プロパティ = 新規
　　DefaultExt プロパティ = txt
　　Filter = テキストファイル (*.txt)|*.txt|HTMLファイル (*.html;*.htm)|すべてのファイル (*.*)|*.*
　　FilterIndex = 1
　　Options.ofOverwritePrompt = True