我的线程怎么只能执行一次

我在主窗体的show事件中创建一下线程：
    try
        Process := TProcess.Create(True {suspended});
        Process.Priority := tpNormal; //tpHigher;
    except
        Process := nil;
        Application.messagebox('系统错误，无法创建线程','提示');
    end;
然后一个按钮的click事件中启动线程：
    Process.Resume;
线程代码执行完后，再次单击按钮，就不会再执行线程了，怎么回事啊