Nachricht vom Server an alle Clienten schicken

[Bowler]

Stellenweise richtig.
Du kannst

type TIdSocketHandle = THandle; weglassen. Aber die IdSocketHandle-Unit musst Du im Interface-Teil schon einbinden, da der Typ bereits in der Klassendefinition verwendet wird. Bei mir sieht das ganze so aus:

Delphi-Quellcode:

unit Unit1;

interface

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



type
  TForm1 = class(TForm)
    client: TIdUDPClient;
    server: TIdUDPServer;
    Button1: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
    procedure serverUDPRead(Sender: TObject; AData: TStream;
      ABinding: TIdSocketHandle);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

//usw.

Dann sollte es funtzen.

Gruß
Christian