Delphi Savedialog Como mostrar na caixa de dialgo do Savedialog o nome do arquivo que foi aberto e sua extensão

Olá gente.
Antes de mais nada gostaria de dizer que este forum é muito organizado e tem um layout muito fácil.

Quero abrir um arquivo e jogar no memo. Vou editar e salvar o conteúdo usando o savedialog. Eu fiz isso tudo, só que quero otimizar essa tarefa, deixando no campo do nome a ser salvo já escrito com o mesmo nome do arquivo original, só para ganhar tempo.
Veja bem:

//Objeto Opendialog Propriedade InitialDir: Coloco o caminho inicial da pasta onde estão os arquivos
//Objeto Savedialog Propriedade InicialDir: Faço o mesmo.

//Objeto Savedialog Propriedade DefaultExt: Coloco a extensão do arquivo, mas ele nao aparece na caixa de dialogo na hora de salvar.

//Carregar o arquivo
if OpenDialog1.Execute then begin
memo1.lines.LoadFromFile(OpenDialog1.FileName);

//Mostrar no label o nome do arquivo aberto
label12.caption:= ExtractFileName(OpenDialog1.FileName);;

//Salvar arquivo editado no memo
if Savedialog1.execute then
begin
//" " " Neste momento que que aparece já digitado no campo o Nome do arquivo aberto, sem o nome da extensão, porque já foi prédefinida. " " "
memo1.lines.SaveToFile(SaveDialog1.FileName);
end;

Será que alguém pode completar esta tarefa?