I am trying to open a picture in my data base

Hello i am trying to open a picture that is in the ms database. Everything links fine the data base shows all the information. Except when i press on the button to open the picture associated with the Name of the animal.
Please can someone help ?
 TFrmMammals.Button1Click(Sender: TObject);
 Var
 S : TMemoryStream ;
 graphic : TGraphic ;
 GraphicType : String ;


begin

   ADOQuery1.Close   ;
   ADOQuery1.SQL.Text := 'select Male from Mammals where EnglishName = ''' + DBLookupComboBox1.Text + ''''  ;
     ADOQuery1.Open    ;


   S := TMemoryStream.Create;
   Try
   TBlobField(ADOQuery1.FieldByName('Male')).SaveToStream(S);
   S.Position := 0 ;

    GraphicType := ADOQuery1.fieldbyName('Male').AsString ;

  if
   GraphicType = 'BNP'
   Then
 graphic := TBitmap.Create;

 ADOQuery1.fieldbyName('Male').AsString := 'Bnp' ;
  except
 If GraphicType = 'Jpg'
  then
  graphic := TJPEGImage.Create
    else

   try
    Image1.Picture.Assign(graphic);
    finally
    graphic.Free;
    S.free ;
    end;
   end ;


 ADOQuery1.fieldbyName('Male').AsString := 'Bnp' ;
This is where the error is and it states class Edatabase error with message ' adoQuery : Dataset not in edit or insert mode'.
Kind regards
Frank