Añadir Ruta a un archivo de texto..

[BuRtOn]

Delphius si me guio por el codigo, por que estoy aprendiendo, y me toca probar las cosas que encuentro, y no se, pero mi fuerte no son archivos, pero aun asi los quiero manejar bien, mira ya soy capaz de elegir la ruta que deseo pero aun asi no me crea el archivo....se que no me falta mucho, pero ni idea que sea...por favor si tu o alguien me pueda hechar una manito se lo agradezco, no que me hagan el codigo, pero si que me puedan explicar que se puede hacer....miren lo que me qudo del codigo es lo siguiente:

Código Delphi [-]
procedure TfrmSeriales.btnIdClick(Sender: TObject);
var Id: TextFile;
var carpeta :string;
begin
//Llamando la funcion en el text del edit
edtId.Text:=GetVolumeID('C');

//Crear Archivo
if SelectDirectory('D:\Nueva carpeta','D:\Nueva carpeta', carpeta) then
begin
AssignFile( Id, ExtractFilePath( Application.ExeName )+'Id.dos ');
Rewrite(Id);
Writeln(Id,edtId.Text);
closeFile(Id);
end;
end;

otra forma que trate de direccionarlo fue esta:

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 )+'D:\Nueva carpeta\Gyros\Id.dos '); 
Rewrite(Id);
Writeln(Id,edtId.Text);
closeFile(Id);
end;

como se pueden dar cuenta trate de direccionarlo de esa forma pero tampoco pude...estoy tratando e intentado haber que me funciona...todo es de probar y mirar las cosas, les agradesco que me colaboren y a ti delphius tambien gracias, siempre me induces a leer y leer...jejeje eso es bueno.....