Añadir Ruta a un archivo de texto..

[BuRtOn]

Saludos amigos, miren tengo elaborado el siguiente archivo:

Código Delphi [-]
procedure TfrmSeriales.btnIdClick(Sender: TObject);
var Id: TextFile;
begin
 
//Llamando la funcion en el text del edit
edtId.Text:=GetVolumeID('C');
 
//Crear Archivo
AssignFile( Id, ExtractFilePath( Application.ExeName ) + 'Id.dos' );
Rewrite(Id);
Writeln(Id,edtId.Text);
closeFile(Id);
end;

El hecho es que el archivo se crea por defecto en la carpeta donde se creo la aplicacion, pero necesito que no se genere ahi, si no en una carpeta especifica....alguien me podria colaborar en ese procedimiento, muchas gracias por su tiempo prestado.....