Source position: ssfpc.inc line 388
function SendTo(
s: TSocket;
Buf: TMemory;
len: Integer;
flags: Integer;
addrto: TVarSin
):Integer;