procedure TMainForm.BitBtn9Click(Sender: TObject);
var BF: TBlobField;
begin
 
while( not(Mainform.ADOQuery_PictureTable.Eof)) do
  begin
    Mainform.spGetCardPicture.Close;
    Mainform.spGetCardPicture.Parameters.ParamByName('@siCard').Value := Mainform.ADOQuery_PictureTable.FieldByName('sicard').AsInteger;
    Mainform.spGetCardPicture.Open;
    If not (Mainform.spGetCardPicture.FieldByName('photo').IsNull)
      then
         begin
          BF := Mainform.spGetCardPicture.FieldByName('photo') as TBlobField;
          BF.SaveToFile('c:\Export'+'\'+Mainform.ADOQuery_PictureTable.FieldByName(Field_name1).AsString+'.jpg');
          //BF.Free;

         Mainform.ADOQuery_PictureTable.Next;
        end
          else
            begin
             Mainform.ADOQuery_PictureTable.Next;
             ProgressBar1.Position:=ProgressBar1.Position+1;
             Label2.Caption :=IntToStr(ProgressBar1.Position)+'/'+IntToStr(Max);
            end;
      end;

end;