сделать в приложении delphi сохранить как

[Skidxs]

Скажите пожалуйста как сделать в приложении сохранить как вот у меня есть код в button :

procedure TForm1.Button1Click(Sender: TObject);
begin
If SaveDialog1.Execute then Memo1.Lines.SaveToFile(SaveDialog1.FileName);
end;

end.

при этом
он сохраняет только файлом а мне надо чтобы в txt также из memo

[Аватар]

чтобы в txt также из memo

в стринговую переменную, что ли?

s:=Memo1.Lines.Text;

[NewLamer&Programer]

полагаю имелось ввиду это:

 If SaveDialog1.Execute then Memo1.Lines.SaveToFile(SaveDialog1.FileName+'.txt');

[Stilet]

Ребята, ПОЖАЛУЙСТА форматируйте код.

[Skidxs]

Сообщение от NewLamer&Programer

полагаю имелось ввиду это:

 If SaveDialog1.Execute then Memo1.Lines.SaveToFile(SaveDialog1.FileName+'.txt');

Спасибо большое точно нужно