Локальный чат

[Chelovek1]

есть код

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, IdUDPClient, IdBaseComponent, IdComponent, IdUDPBase,
  IdUDPServer, StdCtrls;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Edit1: TEdit;
    Button1: TButton;
    IdUDPServer1: TIdUDPServer;
    IdUDPClient1: TIdUDPClient;
    procedure Button1Click(Sender: TObject);
    procedure IdUDPServer1UDPRead(Sender: TObject; AData: TStream;
      ABinding: TIdSocketHandle);
    procedure Button1Enter(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
IdUDPClient1.Send(Edit1.Text);
end;

procedure TForm1.IdUDPServer1UDPRead(Sender: TObject; AData: TStream;
  ABinding: TIdSocketHandle);
var
 StringFormatedStream: TStringStream;
 s: String;
begin
    StringFormatedStream := TStringStream.Create('');
    StringFormatedStream.CopyFrom(AData, AData.Size);
    Memo1.Lines.Add(ABinding.PeerIP+''+StringFormatedStream.DataString);
    ABinding.SendTo(ABinding.PeerIP, ABinding.PeerPort, s[1], Length(s));
    StringFormatedStream.Free;
end;
end.

Ошибка

Build
  [Error] Unit1.pas(19): Undeclared identifier: 'TIdSocketHandle'
  [Error] Unit1.pas(46): ')' expected but identifier 'PeerIP' found
  [Error] Unit1.pas(46): 'END' expected but ')' found
  [Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'

кто подскажет как исправитьвсе перепробывал