[BuRtOn]

Ha perdon por lo del editor del codigo, no se que le pasa, pero aveces me sale asi, y se lo incomodo que es, aki envio de nuevo el codigo para mas comodidad....

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

Gracias por toda su ayuda...