Delphi - Desabilitar la Seguridad de Outlook

Hola Estoy usando esta función:

procedure TDM1.EnviaMail(Direcciones, Asunto, CuerpoHtml: string);
const
olFolderNotes = $0000000C;
var
oCorreoOutlook: Variant;
oCorreoNameSpace: Variant;
oMail: Variant;
oCarpeta: Variant;
begin
try
oCorreoOutlook := CreateOleObject('OutLook.Application');
try
oCorreoNameSpace := oCorreoOutlook.getNameSpace('MAPI');
except
on E: Exception do
raise Exception.create(E.Message + #10#13'No se ha podido crear el espacio de nombres de OutLook')
end;
try
oCarpeta := oCorreoNamespace.GetDefaultFolder(olFolderNotes);
oMail := oCarpeta.Items.Add('IPM.Note');
oMail.to := Direcciones;
oMail.Subject := Asunto;
oMail.HTMLBody := CuerpoHtml;
oMail.send
except
on E: Exception do
raise Exception.create(E.Message + #10#13'Error al crear el Mail en OutLook.')
end;
except
on E: Exception do
raise Exception.create(E.Message + #10#13'No se puede abrir outlook.')
end;
end;

Pero con Outlook 2003 cada vez que la uso me salta una ventana de seguridad, como puedo quitarla?

Muchas gracias por cualquier info