FreePascal.ru

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls,
StdCtrls, Sockets, BaseUnix;

type
TPacket = packed record
b1 : boolean;
us : byte;
int16 : Word;
int32 : longword;
end;
{ TForm1 }

Tbuf = array ...

Если смогу чем-нибудь помочь, буду рад.
Есть мало-мальский опыт в этом вопросе.
Использовал библиотеки Sockets(Для работы с сокетами) и BaseUnix(если не ошибаюсь для функции FpFcntl);
procedure perrror(const S:string);

Я объявил глобальными переменными:
var
Sock:Tsocket;
Addr:TInetSockAddr;
buf ...