delhi 关于结束或暂停的问题

Question

我初学线程，根据网上的资料学到了用下面的语句来建立线程，问题是我怎么在不退出程序的情况下 ，结束或暂停这个线程。找过答案，好多都是jave或c的，没有delphi的，哪位大哥指点指点哈
function MyThreadFunc(P:pointer):Longint;stdcall;
var
  i:longint;
  DC:HDC;
  S:string;
begin
  DC:=GetDC(Form1.Handle);
  for i:=0 to 500000 do begin
    S:=Inttostr(i);
    Textout(DC,10,10,Pchar(S),length(S));
  end;
  ReleaseDC(Form1.Handle,DC);
end;
procedure TForm1.UsedThreadClick(Sender: TObject);
var
  hThread:Thandle;//定义一个句柄
  ThreadID:DWord;
begin
//创建线程，同时线程函数被调用
  hthread:=CreateThread(nil,0,@MyThreadfunc,nil,0,ThreadID);
  if hThread=0 then
  messagebox(Handle,'Didn’tCreateaThread',nil,MB_OK);
end;

Answer 1

var
    thread: TSendThread;
begin
    thread := TSendThread.Create(False);
    thread.FreeOnTerminate := True;
    // 中止
    thread.Terminate;
end;

Answer 2

先感谢gyk120 
thread: TSendThread; 
运行的时候说没有定义哈”TSendThread“
还有就是这个是终止全部线程吗，还是就终止一个？

Answer 3

var 
    thread: TThread; 
begin 
    thread := TThread.Create(False); 
    thread.FreeOnTerminate := True; 
    // 中止 
    thread.Terminate; 
end;