Hola
Código Delphi
[-]
procedure TfrmSeriales.btnIdClick(Sender: TObject);
var
Id: TextFile;
begin
edtId.Text:=GetVolumeID('C');
AssignFile(Id,'D:\Nueva carpeta\Gyros\Id.dos');
Rewrite(Id);
Writeln(Id,edtId.Text);
CloseFile(Id);
end;
Aunque sigo pensando que el path donde quieres crearlo no deberia ser estático, porque en este caso en específico si no tiene una partición D la maquina donde se ejecute el programa te va a dar un error.
Salud OS