不知为何我的线程老是半途出错？？！

Question

可能是线程内的资源发生异常导到线程退出。我看你在线程中使用的FieldByName('xxx')之类的数据库对象，可能这里会有问题。
还有所有线程不要共用CheckLinksForm.NMhttp1之类的同一个对象，要在线程中创建实例。否则所有线程共用一个实例会发生冲突。总之，你的线程中的线程资源问题好象很多。

Answer 1

type
  TCheckUrl = class(TThread)
  private
    { Private declarations }
    //要在这个位置声明线程内的资源对象
  protected
    procedure Execute; override;
  public
    constructor Create(xxx : xxx); //重载TThread的Create，在这里进行参数及线程资源的初始化工作
  end;线程结束后会释放所有在线程内声明的资源