Сохраниение через SaveDialog

[Asblue]

Здравствуйте!
Подскажите пожалуйста, как сохранить текст из Memo1 в формат '.pas' (Delphi, Pascal) автоматически в папку, заданную в коде программы.

Т.е. при нажатии кнопки Button1 не будет открываться окно для того, чтобы мы указали имя файла и выбрали путь его сохранения, а просто
нажали кнопку и всё, а наш файл уже сохранился там, где надо.

Вот мой код, но здесь обычное сохранение:

procedure TForm1.Button1Click(Sender: TObject);
var f:textfile;
begin
if SaveDialog1.Execute then
Memo1.Lines.SaveToFile(SaveDialog1.FileName+'.pas');
end;

[MaxNik2009]

procedure TForm1.Button1Click(Sender: TObject);
begin
Memo1.Lines.SaveToFile('d:\Main.pas');
end;