Программное Удаление Контейнера

[Гость GoshaSH]

На диске существует контейнер "c:/temp/infotec/sgn-4e20-6af0-95af-5fdb". Пытаюсь программно его удалить. Вот кусок кода:

procedure TContForm.DelButtonclick(Sender: TObject);
var
s: string;
k: integer;
hProv: TProvHandle;
begin
k:=ContList.ItemIndex;
if (k>=0) and (k<ContList.Count) then begin
s:=ContList.Items[k];
if MessageBox(Handle,PChar('Вы уверены, что хотите удалить контейнер "'+s+'"?'),'Вопрос',
				 MB_ICONWARNING or MB_YESNO)=mrYes then begin
	 if CryptAcquireContext(hProv,s,FProvName,FProvType,CRYPT_DELETEKEYSET or KeySet)
	 then GetContainers(FProvName,FProvType)
	 else
		 MessageBox(Handle,PChar('Ошибка удаления '#13#10+'"'+
					 SysErrorMessage(GetLastError)+'"'),'Ошибка', MB_OK or MB_IConerror);
end;
end;
end;

Контейнер удаляется, но функция все равно выдает ошибку "Не удается найти указанный файл". Это баг и фича?

P.S. WinXP SP3, VipNet CSP 3.2