Ajuda com Salvar e Salvar Como

[Almeida2016]

Olá a todos!
Minha pergunta é básica mas não estou conseguindo implementar ou encontrar uma resposta. Estou iniciando com Lazarus, criando um editor de HTML simples. Gostaria de criar no menu arquivo, as opções Salvar e Salvar como como a maioria dos editores tem.

Estou usando o código para o salvar como

if savedialog1.execute then
begin
SaveDialog1.FileName:= OpenDialog1.FileName;
SynEdit1.lines.savetofile(savedialog1.filename);
SynEdit1.setfocus;
end;

Mas para salvar já tentei varias formas e não tenho conseguido. Sendo mais específico: Geralmente o Salvar caso o arquivo já exista e se faça alguma alteração, quando acionado ele salva sem abrir a janela de diálogo. Caso seja novo e ainda não tenha sido salvo, abre a janela salvar como. E o Salvar como sempre abrirá a janela de diálogo.
Se alguém puder ajudar agradeço.

[bylaardt]

para saber se o arquivo já foi salvo anteriormente, verifique em com:

Code: Pascal  [Select]

1. if (length(savedialog1.filename)>0) or savedialog1.execute then ...

não esqueça de, ao abrir o arquivo, identificar o arquivo com o nome padrão:

Code: Pascal  [Select]

1. savedialog1.opendialog:=opendialog1.filename