Перехват DeleteFileA (Delphi)

[Zer0]

Всем добрый вечер, уже день ковыряюсь, не могу понять в чем проблема.

Суть - нужно перехватывать удаление кукисов и подменять путь к ним (хук используется локальный), используется TWebBrowser
С CreateFileA все работает как часы. А вот перехват DeleteFileA выдает AV

Пример кода:

var DelFile:TFunctionRestoreData;

procedure CheckForCookies(var AFileName: ansistring);
begin
    if ContainsText(AFileName,'\Cookies\') then begin
//    if not ContainsText(NewFileName,'\Cookies\Low') then
//      newFileName:=Format('D:\test\%d\',[FValue])+ExtractFileName(newFileName)
//    else
      Delete(AFileName,1,pos('\Cookies\',AFileName)+8);
      AFileName:=Format('D:\test\%d\',[FValue])+ExtractFileName(AFileName);
    ForceDirectories(ExtractFileDir(AFileName));
  end;
end;

function NewDeleteFile(lpFileName:PAnsiChar):boolean;
var newFileName:ansistring;
begin
  if lpFileName=nil then begin
    result:=false;
    exit;
  end;

  if lpFileName='' then begin
    result:=false;
    exit;
  end; //этот кусок уже следствие экспериментов
  newFileName:=lpFileName;
  CheckForCookies(newFileName);
  UnHookcodeHook(@DelFile);
  result:=windows.DeleteFileA(PAnsiChar(newFileName));
  SetProcedureHook(GetModuleHandle('kernel32.dll'),'DeleteFileA',@NewDeleteFile,@DelFile);
end;

procedure TForm3.Button1Click(Sender: TObject);
begin
  FValue:=Random(1000);
  Caption:=IntToStr(FValue);
  if not (@DelFile=nil) then
    UnHookcodeHook(@DelFile);
  SetProcedureHook(GetModuleHandle('kernel32.dll'),'DeleteFileA',@NewDeleteFile,@DelFile);

Все используемые переменные (CookiePath,FValue - инициализированы и в них стоят нужные значения)
Используемый модуль для хуков закинул во вложение
P.S. Не исключено, что рязрядность системы имеет значение, на всякий случай - x64 (приветствуются пинки в нужную сторону для того, чтобы код работал под разными системами)

Заметил, что валится при таком условии:

т.е. при перехвате указатель на строку передается какой-то очень уж странный.

[Zer0]

Эх, уже в который раз остаюсь без ответа

[Djleito]

а какая именно выдается ошибка?