uses
   ..., idHTTP, idComponent;

type
  TForm1 = class(TForm)
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure idhttp1Work(Sender: TObject; AWorkMode: TWorkMode;
                              const AWorkCount: integer);
    procedure idhttp1WorkBegin(Sender: TObject; AWorkMoe: TWorkMode;
                              const AWorkCountMax: integer);
    procedure idhttp1End(Sender: TObject; AWorkMode: TWorkMode);
    procedure idhttp1Status(axSneder: TObject; const axStatus: TidStatus;
                              const asStatusText: String);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
   idHTTP1: TidHTTP;
begin
   try
      idHTTP1:= TidHTTP.Create(nil);
      idHTTP1.OnWork:= idHTTP1Work;   <-------------
      idHTTP1.OnWorkBegin:= idHTTP1WorkBegin;
      idHTTP1.OnWorkEnd:= idHTTP1WorkEnd;
      idHTTP1.OnWorkStatus:= idHTTP1Status;
      idHTTP1.Get('http://www.naver.com');
   finally
      idHTTP1.Free;
   end;
end;

procedure TForm1.idhttp1Work(Sender: TObject; AWorkMode: TWorkMode;
                              const AWorkCount: integer);
begin
//
end;

procedure TForm1.idhttp1WorkBegin(Sender: TObject; AWorkMoe: TWorkMode;
                              const AWorkCountMax: integer);
begin
//
end;

procedure TForm1.idhttp1End(Sender: TObject; AWorkMode: TWorkMode);
begin
//
end;

procedure TForm1.idhttp1Status(axSneder: TObject; const axStatus: TidStatus;
                              const asStatusText: String);
begin
//
end;

end.

위와 같이 동적생성하고 각 이벤트 프로시저를 정의해줬습니다.

그런데 <-------------표시 부분에서 부터 에러가 납니다.

다음은 에러 메세지입니다.

[error]Unit1.pas(44): E2009 Incompatble types: 'Parameter lists differ'

여러분들의 많은 답변 바랍니다.