Grabar archivos de texto

[jarr-o]

Hola a todos mi problema es que necesito guardar un archivo de texto que yo creo en tiempo de ejecucion pero me gustaria que el usuario pudiera indicar en donde se va a guardar ese archivo aqui esta el codigo del procedimiento que estoy utilizando

procedure TT_MovTraspasoSalida.Generardocumento;
var
fecha, hora, nombrearchtxt: string;
begin
fecha := StringReplace (DateToStr (Now), '/', '_', [rfReplaceAll]);
nombrearchtxt := ExtractFilePath (Application.ExeName) + 'Traspasos\' + 'TS' + fecha + '.txt';
Memo1.Clear;
IBOQueryConDoc.Open;
IBOQueryConDoc.First;
while not (IBOQueryConDoc.EOF) do
begin
Memo1.Lines.Add (IBOQueryConDocACO_CODIGO.AsString + ',' +
IBOQueryConDocSAD_CANTIDAD.AsString);
IBOQueryConDoc.Next;
end;
Memo1.Lines.SaveToFile (nombrearchtxt);
ShowMessage ('Se a generado un documento para este traspaso en: ' + nombrearchtxt);
end;

el archivo que necesito guardar es nombrearchtxt, por lo pronto estoy extrayendo el nombre del directorio donde se encuentra el ejecutable de mi aplicacion y lo guardo en un subdirectorio 'Traspasos' pero lo que necesito es mediante un dialogo que el usuario pueda decirle a mi aplicacion donde desea guardar este archivo

Gracias anticipadas por su ayuda