¿como guardar?

[fdoterre]

Hola les quiero pedir si me podría responder la siguiente pregunta:

necesito guardar una información en extensión .doc pero sin que le aparezca al usuario donde desea guardarla, sino que sea en una carpeta determinada por el programador.
El codigo que estoy usando es el siguiente:

If savedialog1.execute then
Memo1.lines.loadfromfile(savedialog1.filename+’.doc’);

[Caral]

Hola fdoterre
Guardar el archivo doc. de un memo.

procedure TForm1.Button1Click(Sender: TObject);
begin
Ruta:= 'C:\Notas.doc';
Memo1.Lines.SaveToFile(Ruta);
Memo1.Lines.Clear;
end;

Recuperar el archivo

procedure TForm1.Button2Click(Sender: TObject);
begin
Ruta:= 'C:\Notas.doc';
Memo1.Lines.LoadFromFile(Ruta)
end;

Con esto el programador define en donde se va a guardar el archivo .doc.
Saludos