小白请求各位大神来段多线程的源码~该如何处理

小白请求各位大神来段多线程的源码~
看了好多教程都不懂，例子更是这样····

小弟这有段需要多线的代码请给各位大神给多线程化，谢啦~~~

var

  Form1: TForm1;

  dm: OleVariant;

  Ghwnd: Thandle;

  dm_ret: BOOL;

implementation


{$R *.dfm}


procedure TForm1.FormCreate(Sender: TObject);

begin

  Winexec('regsvr32 /s dm.dll',SW_show);

  dm:= CreateOleObject('dm.dmsoft');

end;


procedure TForm1.Button1Click(Sender: TObject);

begin

  Ghwnd:=dm.FindWindow('triuiScreen','EVE');

  dm.BindWindow(Ghwnd,'normal','normal','normal',0);

  dm.MoveWindow(Ghwnd,10,10)

（就是求个例子，我想看看怎么多线，请给新建来2条线的就行啦，谢啦~请用new-thread object的方式建立，别直接写代码，小弟和原来的对比着~~~~~~~~~~~）
------解决方案--------------------
.....置顶的帖子看看吧
------解决方案--------------------
file->new->other->new->Thread object->Class name 输入一个名字->确定

就得到一个模版了，看到的只有一个方法Execute，要做的就是在Execute事件中写上你的代码
先熟悉Delphi封装的这个线程类吧，然后再学习其它知识，比如用API去创建，什么同步，互斥之类的
多看书练习吧