Fórum Ajuda com componente TChackBox no Delphi #560336

procedure TfrmRelCodLanc.Monta_SQL();
var i : Integer;
    Entra : Boolean;
begin
    FDLerCodLanc.Active := False;
    FDLerCodLanc.SQL.Clear;
    FDLerCodLanc.SQL.Add(' SELECT * FROM CODLANC ');
    Entra := True;

    for i := 0 to Self.ComponentCount - 1 do
    begin
        if (Self.Components[i] is TCheckBox) and ( TCheckBox(Self.Components[i]).Checked) then
        begin
            If Entra then
            begin
                FDLerCodLanc.SQL.Add('WHERE ');
                Entra := False;
            end
            else
                FDLerCodLanc.SQL.Add('OR ');             <<<<<<<<<<<<<<<<<<< O detalhe está aqui, me retorna o erro ( Token Unknown - line 3, columm1 OR  )
                Case TCheckBox(Self.Components[i]).Tag of
                    1:  FDLerCodLanc.SQL.Add('L_TIPO = ''D'' ');
                    2:  FDLerCodLanc.SQL.Add('L_TIPO = ''R'' ');
                    3:  FDLerCodLanc.SQL.Add('L_TIPO = ''E'' ');
                    4:  FDLerCodLanc.SQL.Add('L_TIPO = ''S'' ');
                    5:  FDLerCodLanc.SQL.Add('L_TIPO = ''M'' ');
                    6:  FDLerCodLanc.SQL.Add('L_TIPO = ''U'' ');
                end;
        end;
    end;

    if RdGpListaPor.ItemIndex = 0 then
       FDLerCodLanc.SQL.Add('ORDER BY L_TIPO, L_CODIGO')
    else
        FDLerCodLanc.SQL.Add('ORDER BY L_TIPO, L_DESCRICAO');

    FDLerCodLanc.Active := True;
    FDLerCodLanc.First;
end;

var
  i: Integer;
begin
  with TCheckListBox(Sender) do
    if (Checked[ItemIndex]) then
    begin
      Items.BeginUpdate;

      for i := 0 to Pred(Items.Count) do
        if (i <> ItemIndex) then
          Checked[i] := False;

      Items.EndUpdate;
    end;
end;

procedure TfrmRelCodLanc.Monta_SQL();
var
  i: Integer;
  Entra: Boolean;
begin
  FDLerCodLanc.Active := False;
  FDLerCodLanc.SQL.Clear;
  FDLerCodLanc.SQL.Add(' SELECT * FROM CODLANC ');
  Entra := True;

  for i := 0 to Self.ComponentCount - 1 do
  begin
    if (Self.Components[i] is TCheckBox) and (TCheckBox(Self.Components[i]).Checked) then
    begin
      If Entra then
      begin
        FDLerCodLanc.SQL.Add('WHERE ');
        Entra := False;
      end
      else
        FDLerCodLanc.SQL.Add('OR ');

      Case TCheckBox(Self.Components[i]).Tag of
        1:
          FDLerCodLanc.SQL.Add('L_TIPO = ''D'' ');
        2:
          FDLerCodLanc.SQL.Add('L_TIPO = ''R'' ');
        3:
          FDLerCodLanc.SQL.Add('L_TIPO = ''E'' ');
        4:
          FDLerCodLanc.SQL.Add('L_TIPO = ''S'' ');
        5:
          FDLerCodLanc.SQL.Add('L_TIPO = ''M'' ');
        6:
          FDLerCodLanc.SQL.Add('L_TIPO = ''U'' ');
      end;
    end;
  end;

  if RdGpListaPor.ItemIndex = 0 then
    FDLerCodLanc.SQL.Add('ORDER BY L_TIPO, L_CODIGO')
  else
    FDLerCodLanc.SQL.Add('ORDER BY L_TIPO, L_DESCRICAO');

  ShowMessage(FDLerCodLanc.SQL.Text); // Acrescentei esta linha

  FDLerCodLanc.Active := True;
  FDLerCodLanc.First;
end;