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
edtId.Text:=GetVolumeID('C');
AssignFile(Id,'D:\Nueva carpeta\Gyros\Id.dos');
Rewrite(Id);
Writeln(Id,edtId.Text);
CloseFile(Id);
Gracias por toda su ayuda...