안녕하세요.
[미남]입니다.
원하시는게 저장시의 디폴트네임을 주고싶다는거 맞지요?
이거라면 생각보다 간단합니다.
다음처럼 해보세요.

procedure TForm1.SaveBtnClick(Sender : TObject);
begin
   SaveDialog1.Filename := '제목없음';
   if SaveDialog1.Execute then begin
      Caption := SaveDialog1.Filename;
      Memo1.Lines.SaveToFile(SaveDialog1.Filename);
   end;
end;

다이얼로그의 필터의 디폴트확장자(만약 txt)를 준다면 '제목없음.txt'로
저장이 되겠지요.

도움이 되셨기를....