uses
    dxsock6;
 
 var
    client:TBPDXSock;
 
 begin
    {$IFDEF FPC}
    client.init;
    {$ELSE}
    client:=TBPDXSock.Create;
    {$ENDIF}
    client.isUDPMode:=True;
    if client.connectto('127.0.0.1',514) then
       client.write(paramstr(1));
    {$IFDEF FPC}
    client.done;
    {$ELSE}
    client.Free;
    {$ENDIF}
 end.

 syslogsend "Testing 1, 2, 3"