如何把UDP的sendbuffer 函数封装到一个独立的过程中，封装后改数据无法使用！(100分)

//该过程在TForm的puclic出声明！
procedure TFClientMain.BtnSendClick(Sender: TObject);
begin
test();
end;
procedure TForm.test();
var
buf:array[0..123] of char;
begin
NMUDP1.RemoteHost:='172.18.250.1';//编译无提示！
//但无法执行，此处提错！内存越界
NMUDP1.SendBuffer(Buf,124);
end;