[Delphi] Ping - 65500 bytes

Witam serdecznie
Mam pytanie odnośnie funkcji IcmpSendEcho
Chciałbym przesąłć ping o jak najwiekszej wielkości

function Ping(AdresseInet: IPAddr; wielkosc:integer) : boolean;
var
 Handle : THandle;

 DW : DWORD;
 rep : array[1..128] of byte;
begin

  result := false;
  Handle := IcmpCreateFile;


  if Handle = INVALID_HANDLE_VALUE then
   Exit;


  DW := IcmpSendEcho (Handle, AdresseInet, nil, 0, nil, @rep, sizeof(rep), 0);
  Result := (DW <> 0);

  IcmpCloseHandle (Handle);
end;

Czy ktoś może mi powiedzieć jak przerobić tą funkcje aby wysyłała ping o wielkosci podanej w parametrze "wielkosc"

http://msdn2.microsoft.com/en-us/library/aa366050.aspx
i zobacz

RequestData
[in] The buffer that contains the data to send in the request.
RequestSize
[in] The size, in bytes, of the request data buffer.