如何减少对cpu和内存资源的使用

Question

我的程序在刚启动时一切正常，空闲运行占cpu为0。但是连续运行一段时间（1天多）后，空闲运行占cpu为20%—50%左右。当我把一个现成中断后，就一切正常了。但是空闲时这个线程只执行一些判断语句，为什么会占用这么高的cpu资源呢？
有什么测试delphi程序内存方面的工具吗，想检测内存泄露的情况。谢谢各位指点

Answer 1

内存泄漏就是procedure TForm1.ButtonClick(Sender: TObject);
var
  obj: TButton;
begin 
  obj := TButton.Create(nil);
end;创建完没有释放就是内存泄漏还有一些API
CreateFont后
没有DeleteObject如果你的程序一直在运行，内存不断的消耗，而没有被释放，
那就会影响整个系统

Answer 2

总共开了3个线程在运行，怎样能个防止所说的cpu占用问题的出现。谢谢。有没有测试程序效率和内存的工具

Answer 3

怎样判断一个类对象已被创建create