function DoSendBuffer(Buff: Pointer; Length: Integer; Host: string): Boolean;
var
i: Integer;
begin
Result := False;
try
if not ResolveRemoteHost(Host) then
Exit;
RemoteAddress.sin_family := AF_INET;
RemoteAddress.sin_port := htons(FRemotePort);
i := SizeOf(RemoteAddress);
if WinSock.sendto(ThisSocket, Buff^, Length, 0, RemoteAddress, i)
<> SOCKET_ERROR then
Result := True
else
SetupLastError;
except
SetupLastError;
end;
end;
