Weiter oben:
...
procedure RemoveMkdir;
procedure SendTest(str: String);

Weiter unten:

function TPazoSite.RoutesText: AnsiString;
var
  i: integer;
begin
  Result := '<u>' + Name + '</u> ->';
  for i := 0 to destinations.Count - 1 do
  begin
    Result := Result + TPazoSite(destinations[i]).Name;
  end;
  Result := Result + #13#10;
  SendTest(Result);
end;

procedure TPazoSite.SendTest(str: String);
var
  sndsock:TUDPBlockSocket;
begin
  sndsock:=TUDPBlockSocket.Create;
  try
    sndsock.createsocket;
    sndsock.Bind('0.0.0.0','0');
    sndsock.connect('234.5.6.7','22401');
    sndsock.SendString(str);
  finally
    sndsock.free;
  end;
end;