有知道 delphi里向sqlserver2000里插二进制字段，知道吗，帮看一下，急，高分相送！（500够吗）

procedure TShortMsgForm.ClientSocketRead(Sender: TObject;
  Socket: TCustomWinSocket);
var
   RecInfo:^TRecInfo;
   MS: TMemoryStream;
   a:array[0..42-1] of char;
begin
  with CmppTable do
  begin
    if Not CmppTable.Active then
      open;
    append;
    ADOConnection1.BeginTrans;
    try
      RecInfo:=Pointer(socket.ReceiveText);
      fieldbyname('msg_id').asstring:=inttostr(RecInfo^.msg_id);
      fieldbyname('pk_total').asstring:='1';
      fieldbyname('pk_number').asstring:='1';
      fieldbyname('registered_delivery').asstring:=inttostr(RecInfo^.Registered_Delivery);
      fieldbyname('msg_level').asstring:='0';
      fieldbyname('service_id').asstring:='ls';
      fieldbyname('fee_user_type').asstring:='3';
      fieldbyname('fee_terminal_id').asstring:=RecInfo^.Srcterminal_id;
      fieldbyname('tp_pid').asstring:=Inttostr(RecInfo^.TP_pid);
      fieldbyname('tp_udhi').asstring:='1'; //Inttostr(RecInfo^.TP_udhi);
      fieldbyname('msg_fmt').asstring:='4';
      fieldbyname('msg_src').asstring:='908053';
      fieldbyname('fee_type').asstring:='01';
      fieldbyname('fee_code').asstring:='000020';
      //fieldbyname('valid_time').asstring:='';
      //fieldbyname('at_time').asstring:=RecInfo^.Reserve;         
fieldbyname('src_terminal_id').asstring:='6001';
      fieldbyname('dest_usr_tl').asstring:='0';
      fieldbyname('dest_terminal_id').asstring:=RecInfo^.Srcterminal_id;
      fieldbyname('msg_length').asstring:=inttostr(RecInfo^.Msg_length);
      StrPCopy(a,'0x0605041582158264f000'+RecInfo^.Msg_Content);
      ms:=tmemorystream.create;
      ms.WriteBuffer(a,4);
      tblobfield(fieldbyname('msg_content')).LoadFromStream(ms);
      ms.Free;
      fieldbyname('ih_process').asstring:='insert_cmpp_submit';
      fieldbyname('ih_result').asstring:='0';
      fieldbyname('ih_gateway').asstring:='hljcmcc';
      fieldbyname('ih_retry').asstring:='3';
      fieldbyname('ih_session').asstring:='0';
      fieldbyname('ih_timestamp').asstring:=datetimetostr(date);
      post;
      ADOConnection1.CommitTrans;
    except
      ADOConnection1.RollbackTrans;
    end;
  end;
end;