инициализация в конструкторе потока

 if WSAStartup($0202, WSAD) <> 0 then
   Exception.Create('WSAStartup Error');
 Ud := Socket(AF_INET, Sock_Dgram, 0);
 if INVALID_SOCKET  = Ud then
   Exception.Create('Socket Create Error');
 Addr.sin_family := PF_Inet;
 Addr.sin_addr.S_addr := Inet_Addr('0.0.0.0');
 Addr.sin_port := HtoNS(FPort);
 FillChar(Addr.sin_zero, SizeOf(Addr.sin_zero), 0);
 if Bind(UD, Addr, SizeOf(Addr)) = Socket_Error then
   Exception.Create('Socket Bind Error');

поточная функция

 Len := 770;
 while not Terminated do begin
   FromLen := SizeOf(TSockAddr);
   WSResult := RecvFrom(UD, LineBuf, Len, 0, Addr, FromLen);
   Wrd := Swap(PWord(@LineBuf[0])^);
   LineNum := Wrd and $3FF;
   CadrNum := (Wrd shr 12) and 1;

   if LineNum = 0 then begin
     Inc(FrameCount);
     PostMessage(Form3.Handle, WM_USER, FrameCount and $F, CadrNum xor 1);
   end;

   Move(LineBuf[2], Buf[CadrNum, LineNum, 0], Wdt);
 end;

Buf - 2 массива, один заполняется, предыдущий отрисовывается

в обработчике WM_USER отрисовка
 SetDiBitsToDevice(Canvas.Handle, 0, 0, Wdt, Hgt, 0, 0, 0, Hgt,
   @Buf[M.LParam], PBitmapInfo(@Info)^, DIB_RGB_COLORS);