Работа Socket на низком уровне RAW пакеты

[Aliens_wolfs]

Доброго всем времени!!! Хочу перевести сокет на низкий уровень для формированя своего IP заголовка и TCP. Проблема такая никак неполучается перевести его для формирования IP заголовка с TCP вроде проблем нету, отправка идет двойного IP заголовка, если проходит. Кто работал с формированим RAW пакетов прошу откликнуться. Заранее спасибо!!!.
В интернете находил примеры но во всех пишут что для Win2000.

Часть кода по переводу сокета в RAW
заголовки TIPHeader и TTCPHeader заполненяютя автоматом от запросившего ресурс клиента

   const
    IP_HDRINCL = 2; // включаем заголовок IP пакета

    FSocket := WinSock.socket(AF_INET, SOCK_RAW, IPPROTO_RAW);
        if (FSocket = INVALID_SOCKET) then
         begin
         FLastError := WSAGetLastError;
         Synchronize(OnError);
        Exit;
        end;

    // пробуем включить изменения IP заголока 
    if setsockopt(FSocket, IPPROTO_IP, IP_HDRINCL, 'TRUE', SizeOf(bool)) <>  SOCKET_ERROR then
     begin

    Size := WinSock.send(FSocket, Buffer, Size, 0);

   {либо так
     sin.sin_family := AF_INET;
    sin.sin_addr.S_addr := IPHeader^.destIP
    Size := WinSock.sendto(FSocket, Buffer, Size, 0, sin, SizeOf(sin));
    но тоже непомогло ошибка ниже происходит}
        
       if (Size = SOCKET_ERROR) then
        begin
          FLastError := WSAGetLastError;
          Synchronize(OnError);  // Ошибка присходит здесь то есть пакет неотправлен
          Exit;
          end;
//Либо двойной IP заголовок нет доступа к формированию
end;

Мне нужно получить доступ к изменению IP заголовка и отправка его.
Никаких корыстных целей нет, просто делаю програмку типа шлюза. Принцип такой сокет слушает все порты типа снифера затем от запросившего ресурс клиента в локалке получает пакет и перекидывает его в интернет и обратно.

И еще один вопрос возник можно ли с сетевым устройством работать через CreateFile, WriteFile, ReadFile, по принципу работы с Com портом и других устройств.