为什么我的程序开销这么大，大家帮忙看看！！谢谢了，斑竹们也来看看，给点意见

Question

onReceivedata := nil;
 如果要用的时候则：
 onReceiveData := ReceiveDataEvent;

Answer 1

onReceivedata := nil;这句写在哪里
onReceiveData := ReceiveDataEvent;这句后边不用定义吗

Answer 2

这个程序运行耗费资源，是由于创建的线程不断循环造成的。
我把它的类该了，简单测试了一下。cpu也就1%-3%。
你的E_MAIL?
把例程和原程序一起发给你。

Answer 3

不需要的时候去掉不断循环的线程,
onReceivedata := nil

Answer 4

呵.
这个控件里面线程真过份,
线程循环居然一点空闲都不让出来.
在里面加一个小小的SLEEP(50);都应该能改进不少.

Answer 5

在循环内加入
  Application.ProcessMessages;
  Sleep(10);
看看效果

Answer 6

我的信箱是[email protected]
谢谢了
真的感谢

Answer 7

刚才发现一个小问题，你把
destructor TMailSlot.Destory;
begin
  inherited;
  FTimer.Free;
end;改为：
destructor TMailSlot.Destory;
begin
  inherited;
  FreeSlot;
  FTimer.Free;
end;