Arredondar para cima sempre

function ArredUp(nValor: Double; Casas: Integer): Double;
var
  sValor,
  sDecimais,
  sParteValor,
  sNovoValor,
  sCasas :string;
  Ponto,
  I, UltimoDigito  :Integer;
begin

  sCasas := '';//zerar a variável que acrescenta as casas decimais
  for I := 1 to Casas do
    sCasas := sCasas + '0';//quantidade de casas decimais passada na função

  Ponto := Pos(',',FormatFloat('0.'+sCasas, nValor));//verifica onde esta a vírgula que separa as casas decimais, de acordo com o parametro de quantidade de casas passado
  sValor := FloatToStr(nValor); //grava o valor numa string para separação das casas decimais
  sDecimais := Trim(Copy(sValor, Ponto + 1, length(sValor)));//pega as casas decimais do jeito que veio sem tratamento
  sParteValor := Trim(Copy(sValor, 1, Ponto - 1));//pegar a parte anterior as casas decimais

  if Length(sDecimais) > Casas then//significa que deu mais doque duas casas decimais depois da vírgula
  begin
    sDecimais  := Trim(Copy(sDecimais ,1 , Casas));//definir a quantidade de casas de acordo com o parametro
    UltimoDigito := StrToInt(Trim(Copy(sDecimais , Length(sDecimais), 1)));//pegar o ultimo digito de casas decimais
    UltimoDigito := UltimoDigito + 1; //como a função mesmo diz, jogar mais um, sempre arredondar o ultimo valor para cima
    sDecimais := Copy(sDecimais, 1, Casas - 1)+IntToStr(UltimoDigito);//jogar o novo ultimo digito calculado somando mais um nos decimais
    sNovoValor := StringReplace(sParteValor,',','',[rfReplaceAll])+','+sDecimais;//define o novo valor gerado
    Result := StrToFloat(sNovoValor);//retornar o novo valor gerado
  end
  else
    Result := nValor;//caso não seja maior, apenas devolver o valor que veio
end;

//execmplo de uso
nResultado := ArredUP(1.233, 2); {valor vai ficar 1,24}