一个老版本中的实现不规则窗体的语句?来看看!(50分)

这好象是DELPHI的早期程序,大概是2或3吧,我在5里查帮助找不到这些语句,不过倒是可以运行
谁能告诉我下面我做标记的语句是实现什么功能的,在5里应该用什么语句代替.

procedure TForm1.FormCreate(Sender: TObject);
var rgn:HRGN;{这是什么类型?5里没有}
begin
Form1.Color:=clRed;
BeginPath(Canvas.Handle);{什么语句,?功能?}
SetBKMode(Canvas.Handle,TRANSPARENT);{同上}
Canvas.Font.Name:='宋体';
Canvas.Font.Size:=200;
Canvas.TextOut(150,130,'黄昏狼');
EndPath(Canvas.Handle);{同上}
rgn:=PathToRegion(Canvas.Handle);
SetWindowRgn(Handle,rgn,true);{同上}
end;

这个例子是制作一个字体窗体！


procedure TForm1.FormCreate(Sender: TObject);
var rgn:HRGN;{这是什么类型?5里没有} //这是区域句柄，D5有！
begin
Form1.Color:=clRed;
BeginPath(Canvas.Handle);{什么语句,?功能?} //开始一个路径
SetBKMode(Canvas.Handle,TRANSPARENT);{同上} //设置字体的背景透明
Canvas.Font.Name:='宋体';
Canvas.Font.Size:=200;
Canvas.TextOut(150,130,'黄昏狼');
EndPath(Canvas.Handle);{同上} //路径结束
rgn:=PathToRegion(Canvas.Handle); //将你的字体路径转换为一个区域
SetWindowRgn(Handle,rgn,true);{同上} //设置窗口形状为你所创立的区域的形状
end;

接受答案了.