[Zorkov Igor]

Код:

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  VD_UnInstallDriver;
end;

Удалить из папки system32\drivers VirtualDisk.sys, перезагрузить компьютер

То есть так извиниюсь

Код:

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  FileDisk := TFileDisk.Create(Self);
  FileDisk.Initialize;
  FileDisk.UninstallDriver;
end;