[SERЖant]

Кидаешь на форму SaveDialog из вкладки Dialogs. Затем на OnClick твоей кнопки пишешь

Код:

 if SaveDialog1.Execute then Memo1.Lines.SaveToFile(SaveDialog1.FileName);