[lesya_ya]

Сообщение от Pilot_Red

что-то не наблюдаю рекурсивный вызов функции........

это???

Код:

if round((x2-x1)/3)>=1 then
  begin
   ToBuild(ax1,y+50,bx1);
   ToBuild(ax2,y+50,bx2);
  end;

можно как-нибудь заменить???