Delphi - Savedialog

Kode 

procedure TForm1.Button130Click(Sender: TObject);
var
	savedlg: TSaveDialog;
begin
	Savedlg:= TSaveDialog.Create(self);
	Savedlg.Filename:= DateToStr(now)+''+'Fejl'+'.txt';
  	Savedlg.DefaultExt := DateToStr(now)+''+'Fejl'+'.txt';
	savedlg.InitialDir := 'c:\\....\\";
	if savedlg.Execute then
	memo2.lines.savetofile(savedlg.filename);
end;

Hej Alle..

Jeg har en kode der ser sådan ud her:

Kode 

procedure TForm1.Button130Click(Sender: TObject);

var
	savedlg: TSaveDialog;
begin
	Savedlg:= TSaveDialog.Create(self);
	Savedlg.Filename:= DateToStr(now)+''+'Fejl'+'.txt';
  Savedlg.DefaultExt := DateToStr(now)+''+'Fejl'+'.txt';
	if savedlg.Execute then
  memo2.lines.savetofile(savedlg.filename);
end;

Hvordan gør jeg sådan at når jeg trykker på min GEM button, så forslår den selv at gemme i fx." C:\\Documents and Settings\\All Users\\Documents\\My Pictures\\Sample Pictures "

Eller i en anden mappe ?