MySQL의 Blob을 이용하여 보세요
물론 입력폼도 만들어야 겠지만요
아래소스는 제가 쓰던것인데 알아서 바꾸어서 쓰세요(DbExpress 입니다)

<!--CodeS-->
function TDataModuleSpec.GetGoodsImage(GoodsCD: string; Data : TMemoryStream): Boolean;
begin
  ADODataSetDynamic.Close;
  ADODataSetDynamic.CommandText := 'Select Count(*) As Cnt from Table_Goods_Image Where GoodsCD = ''' +
    Trim(GoodsCD) + '''';
  ADOErrorFlag := 0;
  try
    ADODataSetDynamic.open;
  except
    on E: Exception do
    begin
      MessageDlg('Error Opening Table ' + E.ClassName,
        mtError, [mbOK], 0);
      Result := false;
      ADOErrorFlag := -1;
    end;
  end;
  if ADODataSetDynamic.Fields[0].AsInteger = 0 then
  begin
    ADODataSetDynamic.Close;
    result := false;
    exit;
  end;
  ADODataSetDynamic.Close;
  ADODataSetDynamic.CommandText := 'Select ImageData from Table_Goods_Image Where GoodsCD = ''' +
    Trim(GoodsCD) + '''';

  ADOErrorFlag := 0;
  try
    ADODataSetDynamic.open;
  except
  end;

  result := True;
  TBlobField(
  ADODataSetDynamic.Fields[0]
            ).SaveToStream(Data);
  ADODataSetDynamic.Close;

end;




// 입력
var TM : TMemoryStream;
begin
  DataModuleSpec.ADOCommandCommon.Close;
  DataModuleSpec.ADOCommandCommon.CommandText := 'Delete From Table_Goods_Image  ' +
                                                 'Where ' +
                                                 'GoodsCD = ''' + trim(panGoodsCD.Caption) + ''' ';


  try
    DataModuleSpec.ADOCommandCommon.Execute;
  except
  end;
  DataModuleSpec.ADOCommandCommon.Close;
  TM := TMemoryStream.Create;
  m_frmImageAccess.m_layer.BitMap.SaveToStream(TM);
  TM.Position := 0;
  DataModuleSpec.ADODataSetDynamic.CommandText := 'Insert Into Table_Goods_Image  ' +
                                                 '(GoodsCd, ImageYN, ImageData) ' +
                                                 ' Values(''' + trim(panGoodsCD.Caption) + ''', 1, :ImageData )';
  DataModuleSpec.ADODataSetDynamic.ParamCheck := True;
  if DataModuleSpec.ADODataSetDynamic.Params.Count = 1 then
  begin
    DataModuleSpec.ADODataSetDynamic.Params[0].DataType := ftGraphic;
    DataModuleSpec.ADODataSetDynamic.Params[0].ParamType := ptInput;
    DataModuleSpec.ADODataSetDynamic.Params[0].Size := TM.Size;
    DataModuleSpec.ADODataSetDynamic.Params[0].SetBlobData(TM.Memory, TM.Size );

    try
      DataModuleSpec.ADODataSetDynamic.ExecSQL(False);
    except
    end;
  end;
  TM.Free;
  DataModuleSpec.ADODataSetDynamic.Close;
<!--CodeE-->

고치기는 그래서 그냥 수정없이 쓰던거 올립니다.
알아서 이해하시고 판단하시면 됩니다.