Ошибка при добавлении изображения

procedure TForm1.LoadImgFromBD;
var
  Ss  : TStringStream;
  St : string;
  jpg: TJpegImage;
begin
    //здесь ID - значение идентификатора строки, из которой считывается картинка
  IBQuery1.SQL.Text := 'select * from catalog where id = '+IntToStr(ID); 
  IBQuery1.Open;
  try
    if not IBQuery1.Eof then begin
      st := IBQuery1.FieldByName('Pict').AsString;
      Ss := TStringStream.Create(st);
 
      if Ss.Size > 0 then begin
        if IBQuery1.FieldValues['typ'] = 1 then begin
          jpg := TJpegImage.Create;
          jpg.LoadFromStream(Ss);
          Image1.Picture.Assign(jpg);
          jpg.Free;
        end;
        if IBQuery1.FieldValues['typ'] = 0 then
          Image1.Picture.Bitmap.LoadFromStream(Ss);
      end;
      Ss.Free;
    end;
  finally
    IBQuery1.Close;
  end;
end;
 
procedure TForm1.SaveImg;
var
  Ss  : TStringStream;
  St : string;
  jpg: TJpegImage;
 
begin
    //ID - значение идентификатора строки, в которую пишется картинка
  IBQuery1.SQL.Text :=  'update catalog set '+
                      'Nam = 2, Pict = :Pict, Typ = :Typ '+
                      'where ID = '+ IntToStr(ID);
 
  if (Image1.Picture.Graphic <> nil) and not Image1.Picture.Graphic.Empty
  then begin
    Ss := TStringStream.Create(st);
    if Image1.Picture.Graphic is TJpegImage then begin
      jpg := TJpegImage.Create;
      jpg.Assign(image1.picture.graphic);
      jpg.CompressionQuality := 100;
      jpg.SaveToStream(Ss);
      jpg.Free;
      IBQuery1.ParamByName('typ').AsSmallInt := 1;  //1-jpeg; 0-bmp
    end else begin
      Image1.Picture.Bitmap.SaveToStream(Ss);
      IBQuery1.ParamByName('typ').AsSmallInt := 0;
    end;
    IBQuery1.ParamByName('Pict').AsBlob := Ss.DataString;
    Ss.Free;
  end else
    IBQuery1.ParamByName('Pict').Clear;
 
  IBQuery1.Transaction.StartTransaction;
  IBQuery1.ExecSQL;
  IBQuery1.Transaction.Commit;
end;