procedure MyThread; stdcall;
begin
    while True do
    begin
    end;
end;
procedure Func;
var
    hThread:THandle;
    ThreadId:Cardinal;
    str:string;
begin
    str := '123';
    hThread := CreateThread(nil, 0, @MyThread, nil, 0, ThreadId);
    if (WaitForSingleObject(hThread, 5000) = WAIT_TIMEOUT) then
    begin
        CloseHandle(hThread);
        Form1.mmo1.Lines.Add('线程超时退出');
        Exit;
    end;
    Form1.mmo1.Lines.Add('线程退出');
    CloseHandle(hThread);

end;