procedure TForm1.Button1Click(Sender: TObject);
begin
saveDialog1.Title:='delphikursu'; //Baslik Ekleme
saveDialog1.DefaultExt:='txt'; // Default Dosya uzantisi
saveDialog1.Filter:='Tüm Dosyalar|*.*| txt dosyalari|*.txt';
//Dosya türünü belirler
saveDialog1.FilterIndex:=2; // 2.uzanti ayarini default getiri.
saveDialog1.InitialDir:='c:\dersler'; // Aktif Klasörü Belirler
saveDialog1.Execute; //saveDialogu Çalistirir.

if SaveDialog1.Execute then
begin
memo1.Lines.SaveToFile(SaveDialog1.FileName);
end;
end;