主程序如何取得消息(50分)

这几天在学习线程，在 http://www.delphibbs.com/delphibbs/dispq.asp?lid=2016628 看到了一个多线程文件复制的程序，拷下来试了一下，但是现在不知道怎么取得线程发出的消息
pgb: TProgressBar;
now_mess : msg ;
copyfile : TcopyThread ;

copyfile := TcopyThread.Create(trim(ed_localfile.Text),trim(ed_serverpath.Text),application.Handle);
pgb.Max := copyfile.FileSize ;

getmessage(now_mess,copyfile.Handle,0,0); //一到这里就死机不动了
while true do begin
pgb.Position := now_mess.lParam ;
sb.Panels[1].Text := '正在传送文件' ;
if pgb.Position >= pgb.Max then break ;
getmessage(now_mess,copyfile.Handle,0,0) ;
end ;
sb.Panels[1].Text := '传送结束' ;

这一段应该怎么写才对呢？[black][/black]