Foros Club Delphi - Imprimir credenciales

Hola amigos recurriendo a ustedes con el siguiente problemilla, resulta que estoy haciendo un programa que me imprima credenciales todo esta bien ya que selecciono el nombre de la persona y le doy clic en imprimir y me envia el reporte del tamaño de la tarjeta que sera la credencial hasta ahi no hay problema ya que tengo todo ya diseñado, pero ahora resulta que tengo que imprimir mas de 400 credenciales y para ahorrar tiempo quiero que me mande o mas bien que me cargue en vista previa todas las credenciales, ya logre hacer que me cargue todos los datos pero no me visualiza las fotos que llevan estas credenciales y solo los datos que contiene las credenciales, entonces es ahi el asunto que quiero pedirles ayuda para saber como cargar todas las imagenes y asi imprimir mas rapido.Le pongo el codigo que utilizo para consultar a una sola persona y el codigo para enviar a imprimir.

Codigo en el cual hago la consulta de una sola persona:

Código:

procedure Tcredencial1.Button3Click(Sender: TObject);

begin

 if combobox1.Text<>'' then

 begin

 with dm1.Q_administrativo do

  begin

   active:=false;

   sql.clear;

   sql.Add('select * from Administrativos');

   sql.add('where id_nombre='+inttostr(v_idcrede1));

   active:=true;

   begin

    label1.Caption:=fieldbyname('nombre').asstring;

    label2.Caption:=fieldbyname('cargo').asstring;

    image1.Picture.LoadFromFile(fieldbyname('foto').asstring);

    image2.Picture.LoadFromFile(fieldbyname('firma').AsString);

    //label5.Caption:=FormatDateTime('mm/yy' ,StrToDateTime ('vigencia'));

   end;

   with fr_credencial1 do

   begin

    qrdbtext3.DataField:=('nombre');

    qrimage6.Picture.LoadFromFile(fieldbyname('firma').asstring);

    qrimage2.Picture.LoadFromFile(fieldbyname('foto').asstring);

   end;

   end;

   end;

end;

codigo en el cual me muestra una vista previa antes de imprimir

Código:

procedure Tcredencial1.Button2Click(Sender: TObject);

begin

fr_credencial1.QuickRep1.Preview;



end;

Gracias de antemano y para mas informacion estoy usando Delphi 2007, Quickreport 4 y access 2003.