CORS policy Delphi Rest Full

Question

I am creating a Delphi Rest Full server to be accessed with Angular front-end, I can apply the POST, PUT and GET but in the attempt to run a DELETE I get the CORS error implemented treatment as many examples of the internet but without success. how should I proceed to resolve DELETE??

Access to Xmlhttprequest at 'http://localhost:8888/datasnap/Rest/apiPais/Pais/2' from origin 'http://localhost:4200' has been blocked by CORS policy: Response to preflight request doesn’t pass access control check: It does not have HTTP ok status.

procedure TWebModule1.WebModuleBeforeDispatch(Sender: TObject;
  Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
begin
 // Response.SetCustomHeader('Access-Control-Allow-Origin','*');

  Response.CustomHeaders.Values['Access-Control-Allow-Origin']      := '*';
  Response.CustomHeaders.Values['Access-Control-Allow-Credentials'] := 'true';
  Response.CustomHeaders.Values['Access-Control-Allow-Methods']     := 'GET, POST, PUT, DELETE, OPTIONS';

  if Trim(Request.GetFieldByName('Access-Control-Request-Headers')) <> '' then
  begin
    Response.SetCustomHeader('Access-Control-Allow-Headers', Request.GetFieldByName('Access-Control-Request-Headers'));
    Handled := True;
  end;

  if FServerFunctionInvokerAction <> nil then
    FServerFunctionInvokerAction.Enabled := AllowServerFunctionInvoker;
end;