dmg[2] := ATK1
if Param[4] >= ATK1 then begin
dmg[1] := ATK1 * ATK1 div 100
if dmg[1] > dmg[2] then dmg[2] := dmg[1]
end else begin
dmg[1] := ATK1 * Param[4] div 100
end;
以下の部分を上のようにすると良いぽいです
//dmg[1] := ATK1 * Param[4] div 100;
//dmg[2] := ATK1 * ATK1 div 100;
//if dmg[1] > dmg[2] then dmg[1] := dmg[2];
//if dmg[1] <= ATK1 then begin
//dmg[2] := ATK1;
//end else begin
//dmg[2] := dmg[1];
//dmg[1] := ATK1;
//end;
