急救！！多线程问题(100分)

要求点击一下按钮，就可以增加一个线程，并且在FORM的面板上增加100个红点。
哪位高手能把代码贴出一下，不甚感激！！

type
TMyThread = class(TThread)
private
{ Private declarations }
protected
procedure Execute;
override;
end;

var
form1 :TForm1;
MyThread: TMyThread;
procedure TMyThread.Execute;
begin
{.....增加100个红点的代码.......}
end;

procedure But1.click;
begin
MyThread:=TMyThread.Create(False);
end;

新手 错了见笑～

多谢啊！还有哪位高手能把代码补齐

顶，盼望有高手出手

不用等高手了，高手都懒得回的
你问题也没问题清楚。。
1楼写的也是大有问题。（不是指不能运行，是指这样使用线程不好！）