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

 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);

procedure x;
type
 TLineRec=packed record
   Info:word;
   Data:array[0..192*4-1] of char;
 end;
var
 Bitmap:TBitmap;
 Line:TLineRec;
 FromLen,LineNum,CadrNum,Wrd:integer;
 WSResult:integer;
 UD:TSocket;
 Addr:TSockAddr;
begin
 Bitmap:=TBitmap.Create;
 try
   Bitmap.PixelFormat:=pf32bit;
   Bitmap.Width:=192;
   Bitmap.Height:=192;
   while not Terminated do begin
     FromLen := SizeOf(TSockAddr);
     WSResult := RecvFrom(UD, Line, SizeOf(Line), 0, Addr, FromLen);
     if WSResult<>SizeOf(Line) then continue;
     Wrd := Swap(Line.Info);
     LineNum:= Wrd and $3FF;
     if (LineNum>-1) and (LineNum<Bitmap.Height) then
       Move(Line.Data,Bitmap.ScanLine[LineNum]^,SizeOf(Line.Data));

     if LineNum = Bitmap.Height-1 then
     begin
       Inc(FrameCount);
       FCanvas.Lock;
       try
         FCanvas.Draw(0,0,Bitmap);
       finally
         FCanvas.Unlock;
       end;
     end;
   end;
 finally
   Bitmap.Free;
 end;
end;