[Resolvido] Problemas com o salvamento de um arquivo txt

Estou tendo um problema com um programa q eu fiz em delphi

eu criei um editor de texto , pois a hora q eu executo ele funciona normal , mas o meu problema esta na hora de salvar

Porque ele abre a janela de salvar mais a hora q eu vou procurar o arquivo a onde eu salvei ele foi salvo sem estençao

aqui esta o codigo do botao de salvar;

procedure TForm1.Salvar1Click(Sender: TObject);

begin if (SaveDialog1.Execute) then begin

 NomeArquivo := SaveDialog1.FileName;
 RichEdit1.Lines.SaveToFile(NomeArquivo);
 Form1.Caption := 'Arquivo Salvo - ' + ExtractFileName(NomeArquivo);
	end;
end;

Será q alguem pode me ajudar a resolver isso

eu precisaria Urgente

Porque é trabalho de escola e nao consigo fazer isso

Muito obrigado a todos q puderem me ajudar