如何把smallint型指针指向地址的内容都到byte数组中

怎么把smallint型指针指向地址的内容都到byte数组中
过程是这样的
procedure TForm1.WPalm1Capture(ASender: TObject; state: Integer;
  var veindata:smallint; length: Integer);

veindata是数据首地址,length是长度,
怎么把数据读出来存到oracle的blob字段中,

求教 不会delphi啊 

------解决方案--------------------
var
  MS : TMemoryStream;
begin
  MS := TMemoryStream.Create;
  MS.Write(veindata , length);
  MS.Position := 0;
  //打开数据表,AdoTable.Open;
  //再定位数据行
  TBlobField(AdoTable.FieldByName('xx')).LoadFromStream(MS);
  MS.Free;
  AdoTable.Post;
  //...
end;