求一个多线程简单的例子
求一个多线程的简单例子，比如界面上有个memo，在memo里添加文字的例子，点击开始可以隔几秒添加一行，点击结束又可以结束线程。关键地方写写注视，谢谢。

有现成的例子或者好的例子都可以发我，邮箱917445521@qq.com

[解决办法]
http://www.cnblogs.com/del/archive/2009/02/05/1384713.htmlLz看看这个，入门再说
[解决办法]
最基本的TThread使用，随便找个资料先看明白
[解决办法]
function NewThread(P:pointer):Longint;stdcall;
var
newbmp: TBitmap;
i,bmpheight,bmpwidth:integer;
begin
for I := 1 to 10- 1 do
begin
form1.Memo1.Lines.Add('qeqweqw');
Sleep(2000);
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
CThread:Thandle;//声明了一个句柄
Tid:DWord;
begin
Cthread:=CreateThread(nil,0,@NewThread,nil,0,Tid); //创建一个线程，同时调用线程函数
end;
像平时一样建个工程，一个按钮一个memo,不要告诉我你看不懂或者不知道界面该放什么
[解决办法]

探讨

function NewThread(P:pointer):Longint;stdcall;
var
newbmp: TBitmap;
i,bmpheight,bmpwidth:integer;
begin
for I := 1 to 10- 1 do
begin
form1.Memo1.Lines.Add('qeqweqw');
Sleep(2000);
……

[解决办法]
再加上线程互斥，太多了，说不完了，网上例子很多
[解决办法]
D的安装目录下面有1个完整的例子
..\Borland\Delphi7\Demos\Threads