Brincando no Rave, pego dois campos textos, realiza comparaçoes, converto para inteiro, faço cálculos, troco a cor de um text, converto para Float, converto para String e somo com texto;

TextDiferencaTotal.Color := 0;
   ValorTotal := StrToInt(CalcTextTotalPABX.Text) – StrToInt(CalcTextTotalOperadora.Text);
   If ValorTotal < 0 Then
       TextDiferencaTotal.Color := 200;
   End;
   TextDiferencaTotal.Text := ‘Diferença Total : ‘ + IntToStr(ValorTotal);
   Porcentagem := StrToInt(CalcTextTotalPABX.Text) / StrToInt(CalcTextTotalOperadora.Text);
   If 100 – (Porcentagem * 100) < 0 Then
     TextPorcentagem.Text := ‘ Porcentagem de Diferença : ‘ + FloatToStr(100 – (Porcentagem * 100)) + ‘% - Possíveis Erros.’;
   Else
     TextPorcentagem.Text := ‘ Porcentagem de Diferença : ‘ + FloatToStr(100 – (Porcentagem * 100)) + ‘% -  Possíveis Acertos.’;
   End;