这个函数我想把 Bao代替Buf 作为OldRecv的参数返回要怎样做呢？

下面的函数我想把 Bao代替Buf 作为OldRecv的参数返回要怎样做呢？Delphi(Pascal) codefunction MyRecv(s: TSocket; var Buf; len, flags: Integer): Integer; stdcall;
var
dwSize: cardinal;
Bao: array[0..len] of Byte;
str:string;
begin
str:='485454502F312E3120323030204F4B0D0A5365727665723A204170616368652D436F796F74652F312E310D0A436F'; 
str:=str+'3533303235623564353034373562356431373537343230383134313634303533353734613032';
HexToBin(PChar(Str),PChar(@Bao[0]),Length(Bao));
WriteProcessMemory(ProcessHandle, AddRecv, @OldProc[1], 8, dwSize);
//---------------------------------------------------------
Result := OldRecv(S, Buf,len,flags); //这里想用Bao代替Buf
//---------------------------------------------------------
JmpCode.Address := @MyRecv;
WriteProcessMemory(ProcessHandle, AddRecv, @JmpCode, 8, dwSize);
end;