Eigene Klasse : Ereignisse ?

[Real-TTX]

Letze Frage habe ich doch noch, Was mach ich an dieser Stelle falsch ? :

Delphi-Quellcode:

....
type

  TDownload = record
    ID : array[3] of string;
    URL : string;
    Size : int64;
    Proto : integer;
    Host : string;
  end;

  TDownloadWork = procedure(Download : TDownload) of object;
  TDownloadBegin = procedure(Download : TDownload, Work : integer) of object;
  TDownloadEnd = procedure(Download : TDownload, Count : integer) of object;

  THTTPDownloader = class
  private
    intDownloads  : integer;
    objHTTP       : TidHTTP;
    DownloadWork  : TDownloadWork;
    DownloadBegin : TDownloadBegin;
    DownloadEnd   : TDownloadEnd;
  public
    constructor Create;
    function GetURLFileSize(aURL : string) : int64;
    property Downloads : integer read intDownloads;
  end;

var
  Downloader : THTTPDownloader;

implementation
...

Ich glaub nun steh ich auf dem nächsten Schlauch