[LACV]

Buena tarde estoy realizando una aplicacion para leer basculas digitales; estoy realizado la conexion y recibo correctamente el dato con este poco de codigo

estoy usando el componente Async Professional ApdComPort

Código Delphi [-]
procedure TFrmIndicador.ComPortConexTriggerAvail(CP: TObject; Count: Word);
var
  I: Word;
  C: String;
begin

  for I := 1 to Count do
  begin
    C := C + ComPortConex.GetChar;
  end;

  LbIndicador.Caption := C;
end;

pero me estan pidiendo que si el dato que recibo esta cambiado continuamente no permita capturar el dato y la verdad no e podido realizarlo e intentado hacerlo con un timer pero no lo e logrado lo ultimo que e intentado es esto

Código Delphi [-]
procedure TFrmIndicador.Timer1Timer(Sender: TObject);
var
  dato: string;
begin
 
  dato := LbIndicador.Caption;
  Sleep(1000);

  if C = dato then
  begin
    BtnGuardar.Enabled := true;
    StLMovimiento.NotLitColor := clBlack;
    StLPesoBruto.NotLitColor := clLime;
  end
  else
  begin
    BtnGuardar.Enabled := false;
    StLMovimiento.NotLitColor := clLime;
    StLPesoBruto.NotLitColor := clBlack;
  end;
    
end;

gracias de antemano