1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

var 
  stream : TStringStream;
  s:String;
begin 
  try  
  stream := TStringStream.Create(''); 
  stream.WriteBuffer(Buffer[0], sizeof(buffer));   
  s := stream.DataString;
  UDPServer.SendBuffer(IP_Adresse,UDP_PORT, s, stream.Size);        
  finaly
   stream.Free;
  end;					

1:
2:
3:
4:

const 
Buffer :array[0..2] of byte = ( $01, 
                                $02, 
                                $03 );