// x1, y1 - координаты объекта А, x2 и y2 - координаты объекта Б
// angle, power - угол и сила броска
// xm, ym - координаты точки, выше которой должен пролететь мяч(вершина сетки, по сути)
// g - ускорение свободного падения
angle := arctan2( ym-y1-480/abs(x1-xm)-480/abs(x2-xm)-100, xm-x1 ); // угол броска берется как угол между начальной точкой и, по сути, рандомной точкой над сеткой. Можно пошаманить с коэффициентами, посмотреть на интересные результаты  
SinCos(angle,s,c); // синус угла - в s, косинус - в c
d := g*(x2-x1)*(x2-x1)/(2*c*c*(y2-tan(angle)*(x2-x1)-y1)); // убер-формула, считает квадрат силы броска
if (d>0) then // проверка, на всякий пожарный
     power := sqrt(d)
else
     power := 0;