Pascal/Delphi Consulta em ComboBox no Delphi

[clovisystem_net]

Pessoal, criei um form em Delphi e quando tento buscar os dados do banco de dados pra inserir numa ComboBox (combobox3)não aparece os dados... Sendo que esses dados obedecem uma consulta onde escolho o produto e na combo(combobox2) deve aparecer o valor dele no banco de dados. Alguém ajuda???

O código do erro  está em destaque

Aí vai o código do Button:

procedure TForm4.Button5Click(Sender: TObject);
begin
   DBEdit1.Visible:=true;
   ComboBox3.Visible:=true;
   Query2.close;
   Query2.Open;

   if Query2.IsEmpty then
    begin
      ShowMessage('Nenhum valor encontrado');
      exit;
    end
    else
      begin
      Query2.SQL.Add('SELECT DISTINCT Valor FROM Produtos WHERE MarcaProduto = ' + ComboBox2.Text );
      ComboBox3.Items.Add(Query1.FieldByName('Valor').AsString);
      Query2.Next;
   end
end;