请问动态创建IDHTTP，如何写入触发事件

Question

1，做了一测试，在FORM1里拖入一个IDHTTP1，然后程序执行时再动态创建一个IDHTTP(testhttp),然后IDHTTP1里 预先写入 OnWorkBegin 事件procedure TForm1.IdHTTP1WorkBegin(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCountMax: Integer);
begin
  memo1.lines.Add('test');
end;
2，接着 动态创建 testhttp 并把事件触发写入 但是 报错procedure TForm1.Button2Click(Sender: TObject);
var
  testhttp:tidhttp;
begin
  testhttp:=tidhttp.Create(nil);
  testhttp.BeginWork:=idhttp1.BeginWork;
end;
testhttp.BeginWork:=idhttp1.BeginWork;
这行报错，错误原因为"not enough actual parameters"
改为testhttp.BeginWork:=form1.IdHTTP1WorkBegin;
也不行 也是报这个错 本意是想让两个IDHTTP的BeginWork一致 不过不知道怎么写，奇怪的是
假如是OnWork触发，这样设置就能编译通过 BeginWork就不行 纳闷- -

Answer 1

testhttp.OnWorkBegin:=idhttp1.OnWorkBegin;