Code: Select all
   if (GetHP(Horse1) < GetMaxHP(Horse1)/2) or (GetHP(Horse2) < GetMaxHP(Horse2)/2) then
           begin
           .................
           end;  
Работает.
Code: Select all
   if (GetHP(Horse1) < GetMaxHP(Horse1)/2) or (GetHP(Horse2) < GetMaxHP(Horse2)/2) then
           begin
           .................
           end;