Rave Reports, OnBeforePrint, Conversões, Comparações.

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;

Erro do Rave, Unable to gain Control of RAVE Data communication System Mensagem de Erro: Unable to gain control of Rave data Communication System.

Erro: Unable to gain Control of RAVE Data communication System
Mensagem de Erro: Unable to gain control of Rave data Communication System.
 
Detalhe tem que abrir o DPR
program Project1;
 
uses
  Forms,
  RPDefine,
  SysUtils,
  DMCadastrar in ‘DMCadastrar.pas’ {DMCadastro: TDataModule},
  Principal in ‘Principal.pas’ {FormPrincipal},
 
{$R *.RES}
 
begin
  RPDefine.DataID := IntToStr(Application.Handle);
  Application.Initialize;
  Application.Title := ‘Sistema de Teste’;
  Application.CreateForm(TDMCadastro, DMCadastro);
  Application.CreateForm(TDMCadastroRH, DMCadastroRH);
  Application.CreateForm(TFormPrincipal, FormPrincipal);
  Application.Run;
end.