Grabar archivos de texto

[*Caro*]

Hola jarr-o, puedes utilizar la función SelectDirectory que te muestra un cuadro de dialogo para poder seleccionar el directorio. Para que te funcione debes añadir en uses la unidad FileCtrl.

Código Delphi [-]
procedure TT_MovTraspasoSalida.Generardocumento;
var
 fecha, hora, nombrearchtxt: string;
Carpeta : String;
begin
 fecha := StringReplace (DateToStr (Now), '/', '_', [rfReplaceAll]);
 hora := StringReplace (TimeToStr (Now), ':', '', [rfReplaceAll]);
 hora := StringReplace (hora, '.', '', [rfReplaceAll]);
 Memo1.Clear;
 
 if SelectDirectory('Seleccione la ruta de la carpeta', '', Carpeta) then
   nombrearchtxt := Carpeta +'\'+ 'TS' + fecha + StrSinEspa (hora) + '.txt'; 
 
 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;

Saluditos