error en tiempo de ejecución

[Nelly]

Pues no me marca error sin el begin, de todos modos te agradezco tu tiempo, seguro que estoy pasando por alto algun detalle fundamenta en el codigo, por eso marca error, ya vere como le hago. Muchas gracias por tus comentarios.


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;