var buf 参数如何转换成字符串

api hook 拦截 socket 有一个函数是
function MySend(s: TSocket; var buf; len, flags: Integer): Integer; stdcall;
var
  dwSize: cardinal;
begin
  //这儿进行发送的数据处理
  MessageBeep(1000); //简单的响一声
  //调用直正的Send函数
  saveedit := TStringList.Create;
  saveedit.Text := 'buf';
  if not FileExists('C:\123.txt') then //判断文件是否存在
    saveedit.SaveToFile('C:\123.txt') //不存在创建
  else
  begin
    saveedit.LoadFromFile('C:\123.txt'); //存在打开
    saveedit.add('buf'); //追加
    saveedit.SaveToFile('C:\123.txt'); //保存
  end;
  saveedit.Free; //释放
  WriteProcessMemory(ProcessHandle, AddSend, @OldProc[0], 8, dwSize);
  Result := OldSend(S, Buf, len, flags);
  JmpCode.Address := @MySend;
  WriteProcessMemory(ProcessHandle, AddSend, @JmpCode, 8, dwSize);
end;
参数是 bar buf ,查 api知道是个字符指针 ,现在是问题是怎么把他转换成字符串呢,就是我要获取里面的字符串