如何禁止发送邮件？

我想开发这样一个程序，就是为了防止木马，禁止用户发送邮件，我知道邮件发送端口是25，我尝试用delphi控件 UdpSocket，IdUDPServer，ServerSocket，用占用端口25的办法来禁止用户发送邮件，但是失败了，foxmail总能发邮件，我另外尝试用组策略的办法来禁止端口25，也没有用，foxmail照样能发邮件，我实在没辙了，谁有好办法，不管用什么办法，做到禁止发送邮件!当然最好用delphi程序的方法。