error en tiempo de ejecución

[[maeyanes]]

Viendo el código que pusiste, creo que el error se da cuando quieres insertar una foto nueva en la base de datos. Esto es por que agregas la sentencia Insert con parámetros pero no le pasas esos parámetros.

El siguiente código debería funcionar bien.

Código Delphi [-]
  qryInsFoto.SQL.Clear;
  if qryFotos.IsEmpty then begin
    qryInsFoto.SQL.Add(' insert into fotos (cve_rnm,foto) values (:cve_rnm,:foto) ');
  end else
    qryInsFoto.SQL.Add(' update fotos set foto=:foto where cve_rnm=:cve_rnm ');
  qryInsFoto.ParamByName('cve_rnm').AsString := qryFotos.fieldbyname('cve_rnm').AsString;

Saludos...