Не отвечает при компиляции этой функции?

Я пробовал работать с Delphi XE, но при компиляции получил сообщение "Не отвечает". Работает ли это на вашем компьютере или что-то не так с функцией?

function Test(const FileName: string;
  const Force: boolean = false): boolean;
var
  IsAllowed: boolean;
begin
  result := false;
  if FileExists(FileName) then
  begin
    try
      if (Force) then
      begin
        result := false;
        exit;
      end;
    finally
      if IsAllowed then
        DeleteFile(FileName);
    end;

    try
      result := true;
    except
      result := false;
    end;
  end;
end;