如何让一个线程迅速结束掉？ ( 积分: 20 )

procedure TCollectIpListThread.MySleep(aTimeUnits: Integer);
var
  i: Integer;
begin
  for i := 0 to aTimeUnits -1do
  begin
    if Terminated then
      Break;
    sleep(100);
  end;
end;

        if GCollectIpThreadList.Count > 0 then
        begin
          if TCollectIpListThread(GCollectIpThreadList.Objects[0]) <> nil then
          TCollectIpListThread(GCollectIpThreadList.Objects[0]).Free;
        end;

function StartCollect: Boolean;
var
  BTSTARTCollectIpListThread: TCollectIpListThread;
  tempThreadName,tempThreadPoint:string;
begin
  if GCollectIpThreadList.Count > 0 then
  begin
    Result := False;
    Exit;
  end;
  BTSTARTCollectIpListThread := TCollectIpListThread.Create(GStartIPC,GEndIPC,GPCName);
  tempThreadPoint := IntToStr(Integer(BTSTARTCollectIpListThread));
  tempThreadName :=  tempThreadPoint;
  GCollectIpThreadList.AddObject(tempThreadName,BTSTARTCollectIpListThread);
  Result := True;
end;