Undefinierter Bezeichner: TIdSocketHandle ???

[David]

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;