Problemas con String

[RoyTan]

Saludos,
Tengo un problema con la signacion de un variable tipo string reconoce el uno como numero no como caracter, Ejemplo

Código Delphi [-]
procedure TF_Informe.BBB1_2Click(Sender: TObject);
Var
    Contador1:   Integer;

begin
    Contador1   := 0;

// contamos todos los registros y lo comparamos
   try
    ModuloDatos.THistorial.First;
     while not ModuloDatos.THistorial.Eof do begin

         if ModuloDatos.THistorialPRI2.AsString = 1X then // reconoce el 1 como numero no como caracter y da error
           Begin
             Contador1 := Contador1 + 1;
           End;
         ModuloDatos.THistorial.Next;
     end;
   finally
      L_1_1_2.Caption := IntToStr(Contador1);
   end;
// Fin de la cuenta de todos los registros

end;

Reconoce el numero 1 como numero no como caracter y no se como solucionarlo,

Gracias