delphi指针问题,DataBuf: PBYTE

Question

{===============================================================================
[函数]: Chg_GetBoxMsg
[参数]: Ip - IP，DataBuf - 格式：位置(4字节) 次数(4字节) 消息内容(\0)，MaxLent - 最大长度
[功能]: 取IP->Message
[返回]: PDWORD
[说明]: 房间消息发送
[程序]: lxj_com
[日期]: 2006-11-24 17:00 last: 2006-11-24 17:00
-------------------------------------------------------------------------------} 
 procedure Tdm.Chg_GetBoxMsg(Ip: DWORD; DataBuf: PBYTE; MaxLen: DWORD);
var
  strsql:string;
  strtext:string;
  strip:string;
  iLen:integer;
begin
  MaxLen := 255;
  strip  := GetIpStr(IP);  strsql:= ' SELECT TOP 1 ID,Positions,Repeat,Texts ' +
           ' FROM RoomMsg_tmp ' +
           ' WHERE IPAddress=''' + strip + '''' +
           ' ORDER BY ID ';  qrTmp.Close;
  qrTmp.SQL.Text := strsql;
  qrTmp.Open;  if qrTmp.RecordCount>0 then
  begin
    DataBuf^:=qrTmp.FieldValues['Positions'];
    DataBuf^:=DataBuf^+qrTmp.FieldValues['Repeat'];
    DataBuf^:=DataBuf^+qrTmp.FieldValues['Texts'];
  end;
end;  如上函数,怎么把数据 存入 databuf 中