线程初级：请多指教(20分)

自己刚刚接触多线程，这是调试的一点感受：
这是delphi5开发人员指南中多线程的例子
按F7调试，发现为什么在create执行之后看不到execute执行，冥思苦想之后
在其execute的一些语句中设置断点，看到了execute执行情况。看到了两个线程执行
但小兄（半道转行）仍然有很多的不懂得问题，向各位专家请教，
unit Main;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,StdCtrls;
type
TMainForm = class(TForm)
Button1: TButton;
ListBox1: TListBox;
procedure Button1Click(Sender: TObject);
private
procedure ThreadsDone(Sender: TObject);
end;
TFooThread = class(TThread)
protected
procedure Execute;
override;
end;
var
MainForm: TMainForm;
implementation
{$R *.DFM}
const
MaxSize = 3;
var
NextNumber: Integer = 0;
do
neFlags: Integer = 0;
//记录线程数
GlobalArray: array[1..MaxSize] of Integer;
CS: TRTLCriticalSection;
function GetNextNumber: Integer;
begin
Result := NextNumber;
// return global var
inc(NextNumber);
// inc global var
end;

procedure TFooThread.Execute;
var
i: Integer;
begin
OnTerminate := MainForm.ThreadsDone;
// 设置断点。应当首先执行，为什么在最后才执行
EnterCriticalSection(CS);
//进入临界区 ，设置断点
for i := 1 to MaxSizedo
begin
GlobalArray := GetNextNumber;
// set array element
Sleep(5);
// let thread intertwine
end;
LeaveCriticalSection(CS);
//离开临界区 ,设置断点
end;

procedure TMainForm.ThreadsDone(Sender: TObject);
var
i: Integer;
begin
inc(DoneFlags);
ifdo
neFlags = 2 then
{设置一个断点}
begin
// make sure both threads finished
for i := 1 to MaxSizedo
{ fill listbox with array contents }
Listbox1.Items.Add(IntToStr(GlobalArray));
DeleteCriticalSection(CS);
end;
end;

procedure TMainForm.Button1Click(Sender: TObject);
begin
InitializeCriticalSection(CS);
TFooThread.Create(False);
// create threads
TFooThread.Create(False);
end;
end.

我想问，OnTerminate事件是在一个线程执行完之后，就要执行的事件吗，他有什么用途
sleep函数，是分别执行这两个线程的时间片（我看帮助后，自己的理解，有错误请指正），
该函数在调试的时候，把我是有点搞糊涂了[][]

太初级了，
但为啥没人光顾？？？

OnTerminate是一个事件，就像一个button可以有onclick事件一样。
OnTerminate := MainForm.ThreadsDone;
这一条语句的作用是指定线程执行完毕后执行MainForm.ThreadsDone方法。
sleep是使线程停止（休眠）指定的毫秒数。
OnTerminate := MainForm.ThreadsDone;//设置断点。应当首先执行，为什么在最后才执行
是在execute中最先执行的。由于Button1Click创建了两个线程，所以断点时的顺序是不可知
的（两线程同时运行，但是遇到断点均会停止）。

确实，我在调试的时候，感到有些恼火，幸好delphi中还有察看线程的工具。
线程的执行顺序给我感觉是好像不可预测的

当然啦，线程是这样的，所以有同步之类的方法强制线程运行顺序。

我觉得有些时候，不用线程更简单[]
表达的事自己的观点吧

再问一个小问题，为什么我在调试程序时，打不开数据库别名，甚至连数据库也打不开
说是：
an Error Occured while attempting to initialize Borland database Engineer
（Error $2A04）
bde初始化失败是怎么回事？

各位大虾，有时间的话就多谈一谈自己对线程理解，让小兄多学习学习[]

有时间的大虾，帮指点一下：
关于线程与内核对象同步的问题
内核对象处于已通知或未通知状态怎么理解，我看了一些书之后，感到很迷惑。
当内核对象的到通知时（处于已通知状态），线程处于可调度状态
当内核对象的未得到通知时（处于未通知状态），线程不可调度状态
waitforsingleobject()函数怎么使用？

我也是刚刚才开始学习线程，以前开发程序都不用，但现在这个必须用，也在学习，用API的创建线程命令CreateThread和begin
Thread比较简单，或者用创建线程的向导也可以。

通知状态和未通知状态还是分不清，关键理解不了，请各位多指教

感谢远帆

接受答案了.