[[egostar]]

hola

Incluye en tu forma un TSaveDialog que encontrarás en el Tab Dialogs.

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  Id: TextFile;
begin
  edtId.Text:=GetVolumeID('C');
  savedialog1.FileName := 'Id.dos';
  if savedialog1.Execute then begin
     AssignFile(Id,savedialog1.FileName);
     Rewrite(Id);
     Writeln(Id,edtId.Text);
     CloseFile(Id);
  end;
end;

Solo indicas donde quieres que se grabe y listo, ya tienes creado el archivo Id.dos, en la ruta que quieras.

Salud OS