implemente lo que me indicaste, solo cambiando el componente ADOQuery por Query y quedo de la siguiente manera:
Código Delphi
[-]
procedure TFrmImprimirVehiculo.SpeedButton1Click(Sender: TObject);
begin
if (DBNumeroVehiculo.Text <> 'Todos') then
Begin
FrmReporte1:=TFrmReporte1.Create(self);
FrmReporte1.Query1.SQL.Add('SELECT NumeroVehiculo');
FrmReporte1.Query1.SQL.Add('FROM BitacoraVehiculos RIGHT JOIN Vehiculos ON BitacoraVehiculos.NumeroVehiculo = Vehiculos.NumeroVehiculo');
FrmReporte1.Query1.SQL.Add('WHERE TbVehiculos.NumeroVehiculo = '+DBNumeroVehiculo.Text);
FrmReporte1.Query1.Open;
if RadioGroup1.ItemIndex = 0 then FrmReporte1.QuickRep1.Print
else FrmReporte1.QuickRep1.Preview;
FrmReporte1.Free;
end;
end;
me marca un error al ejecutarlo y no me muestra nada