Синхронизация видео трансляций по сети

uses WMEncoderLib_TLB;
 
var
  Form2: TForm2;
  //
  //EncoderApp: TWMEncoderApp;
  //Encoder: TWMEncoder;
  a: boolean;
  SrcGrpColl:IWMEncSourceGroupCollection;
  SrcGrp:IWMEncSourceGroup;
  SrcVid:IWMEncSource;
  SrcAud:IWMEncSource;
  ProColl:IWMEncProfileCollection;
  Pro :IWMEncProfile;
  Encoder: IWMEncoder;
  EncoderApp: IWMEncoderApp;
  BrdCst: IWMEncBroadcast;
 
 
procedure wme;
begin
 a:= false;
 EncoderApp := CoWMEncoderApp.Create;
 Encoder := EncoderApp.Encoder;
 EncoderApp.Visible:= true;
 
 SrcGrpColl:= Encoder.SourceGroupCollection;
 SrcGrp:=SrcGrpColl.add('NF1');
 SrcVid := SrcGrp.AddSource(WMENC_VIDEO);
 SrcAud := SrcGrp.AddSource(WMENC_AUDIO);
 SrcVid.SetInput('Default_Video_Device', 'Device', '');
 SrcAud.SetInput('Default_Audio_Device', 'Device', '');
 ProColl:=Encoder.ProfileCollection;
 SrcGrp.Set_Profile(ProColl.item(2));
 BrdCst:= Encoder.Broadcast;
 BrdCst.PortNumber[WMENC_PROTOCOL_HTTP]:= 80;
 Encoder.PrepareToEncode(true);
 Encoder.Start;
 
 while (a=false) do begin
  Application.ProcessMessages;
 end
end;
 
 
procedure TForm2.Button1Click(Sender: TObject);
begin
 a:= not a;
 if a then wme else begin
  Encoder.Stop;
  Encoder.PrepareToEncode(false);
  freeandnil(BrdCst);
  freeandnil(ProColl);
  freeandnil(SrcGrpColl);
  freeandnil(Encoder);
  freeandnil(EncoderApp)
 end;
end;