Indy OnWork event

Har nedenstående testkode og ønsker at få fat i TIdTCPClient'ens OnWork event, det kommer imidlertid aldrig hvad er årsagen til dette

Events som kommer
OnConnect
OnDisconnect
OnStatus

Events som udebliver
OnWork
OnWorkBegin
OnWorkEnd

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
  StdCtrls;

type
  TForm1 = class(TForm)
    IdTCPClient1: TIdTCPClient;
    Button2: TButton;
    procedure Button2Click(Sender: TObject);
    procedure IdTCPClient1Work(Sender: TObject; AWorkMode: TWorkMode;
      const AWorkCount: Integer);
    procedure IdTCPClient1WorkBegin(Sender: TObject; AWorkMode: TWorkMode;
      const AWorkCountMax: Integer);
    procedure IdTCPClient1WorkEnd(Sender: TObject; AWorkMode: TWorkMode);
    procedure IdTCPClient1Status(axSender: TObject;
      const axStatus: TIdStatus; const asStatusText: String);
    procedure IdTCPClient1Connected(Sender: TObject);
    procedure IdTCPClient1Disconnected(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}


procedure TForm1.Button2Click(Sender: TObject);
begin
  IdTCPClient1.Host:= '192.168.1.44';
  IdTCPClient1.Port:= 23;
  IdTCPClient1.Connect;
  if IdTCPClient1.Connected then
  begin
    IdTCPClient1.Write(#27+#13);
    IdTCPClient1.ReadLn('>', -2);
    ShowMessage('job done');
  end;
  IdTCPClient1.Disconnect;
end;

procedure TForm1.IdTCPClient1Work(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCount: Integer);
begin
  if AWorkMode = wmRead then
    ShowMessage('Read');
  if AWorkMode = wmWrite then
    ShowMessage('Write');
end;

procedure TForm1.IdTCPClient1WorkBegin(Sender: TObject;
  AWorkMode: TWorkMode; const AWorkCountMax: Integer);
begin
  ShowMessage('OnBegin');
end;

procedure TForm1.IdTCPClient1WorkEnd(Sender: TObject;
  AWorkMode: TWorkMode);
begin
  ShowMessage('OnEnd');
end;

procedure TForm1.IdTCPClient1Status(axSender: TObject;
  const axStatus: TIdStatus; const asStatusText: String);
begin
  ShowMessage('On Status');
end;

procedure TForm1.IdTCPClient1Connected(Sender: TObject);
begin
  ShowMessage('OnConnect');
end;

procedure TForm1.IdTCPClient1Disconnected(Sender: TObject);
begin
  ShowMessage('OnDisconnect');
end;

end.