Delphi-PRAXiS - Delphi Undefinierter Bezeichner: TIdSocketHandle ???

Hallo alle zusammen,

ich habe folgendes problem, dass der Compiler von Delphi meint dass er 'TIdSocketHandle' nicht kennt!
Habe aber auf mein Formular die Indy-Komponenten IdTCPServer, IdTCPClient, IdUDPServer und IdUDPClient und möchte gerne das Event UDPServerUDPRead(Sender: TObject; AData: TStream; ABinding: TIdSocketHandle) vom IdUDPServer benutzen benutzen! Kann mir da vielleicht jemand auf die schnelle weiter helfen?

Delphi-Quellcode:

			
unit Unit1;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, IdBaseComponent, IdComponent, IdIPWatch, StdCtrls,

  IdTCPConnection, IdTCPClient, IdTCPServer, IdUDPServer, IdUDPBase,

  IdUDPClient;

type

  TForm1 = class(TForm)

    TCPServer: TIdTCPServer;

    TCPClient: TIdTCPClient;

    Memo1: TMemo;

    UDPClient: TIdUDPClient;

    UDPServer: TIdUDPServer;

    GroupBox1: TGroupBox;

    ChbServer: TCheckBox;

    ChbClient: TCheckBox;

    BtnConnectServer: TButton;

    GroupBox2: TGroupBox;

    BtnConnectUDPServer: TButton;

    ChbUDPServer: TCheckBox;

    ChbUDPClient: TCheckBox;

    BtnCloseUDPServer: TButton;

    BtnCloseUDPServerConnection: TButton;

    procedure ChbServerClick(Sender: TObject);

    procedure FormDestroy(Sender: TObject);

    procedure ChbClientClick(Sender: TObject);

    procedure BtnConnectServerClick(Sender: TObject);

    procedure TCPClientConnected(Sender: TObject);

    procedure TCPClientDisconnected(Sender: TObject);

    procedure TCPServerConnect(AThread: TIdPeerThread);

    procedure ChbUDPServerClick(Sender: TObject);

    procedure BtnCloseUDPServerClick(Sender: TObject);

    procedure ChbUDPClientClick(Sender: TObject);

    procedure UDPServerStatus(ASender: TObject; const AStatus: TIdStatus;

      const AStatusText: String);

---> Fehler!!! procedure UDPServerUDPRead(Sender: TObject; AData: TStream;

      ABinding: TIdSocketHandle);

  private

    { Private-Deklarationen }

  public

    { Public-Deklarationen }

  end;

var

  Form1: TForm1;

implementation

procedure TForm1.UDPServerUDPRead(Sender: TObject; AData: TStream;

  ABinding: TIdSocketHandle);

begin

  ShowMessage('Hallo...')

end;