[Nelly]

ok este es el codigo que tengo originalmente:

Código Delphi [-]
procedure TfrmFotografias.btnagregarClick(Sender: TObject);
var
   mijpg:TJPEGImage;
begin
     if((qryMiembros.Active) and (not qryMiembros.IsEmpty)) then begin
         qryInsFoto.ParamByName('cve_rnm').AsString:=
         qryMiembros.FieldByName('cve_rnm').AsString;
         if OpenPictureDialog1.Execute then begin
            Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
            mijpg:=TJPEGImage.Create;
            mijpg.Assign(Image1.Picture.Graphic);
            if uppercase(copy(ExtractFileExt(OpenPictureDialog1.FileName),1,3))<>'.JP'
              then begin
               mijpg.CompressionQuality:=30;
               mijpg.Compress;
              end;
               mijpg.SaveToFile('c:\temp.jpg');
               qryInsFoto.SQL.Clear;
               if qryFotos.IsEmpty then begin
                  qryInsFoto.SQL.Add(' insert into fotos (cve_rnm,foto) values (:cve_rnm,:foto) ');
               end else //begin
                  qryInsFoto.SQL.Add(' update fotos set foto=:foto where cve_rnm=:cve_rnm ');
                  qryInsFoto.ParamByName('cve_rnm').AsString:=qryFotos.fieldbyname('cve_rnm').AsString;
               //end;
                qryInsFoto.ParamByName('foto').LoadFromFile('c:\temp.jpg',ftBlob);
                qryInsFoto.ExecSQL;
                mijpg.Free;
                qryFotos.Active:=false;
                qryFotos.ParamByName('cve_rnm').AsString:=
                qryMiembros.FieldByName('cve_rnm').AsString;
                qryFotos.Active:=true;
                if not qryFotos.IsEmpty then begin
                   mijpg:=TJPEGImage.Create;
                   mijpg.Assign(qryFotos.FieldByName('foto'));
                   Image1.Picture.Assign(mijpg);
                   mijpg.Free;
                end;
          end;
     end;
end;

Empezado por maeyanes

Y si, el tener todo el código del procedimiento podría servir...