Begin
  L := TStringList.Create;
  L.Add('start');
  Board := PCBServer.GetCurrentPCBBoard;
  If Board = Nil Then L.Add('board=nil') Else L.Add('board=ok');
  L.SaveToFile('C:\Users\john\Documents\Adom\tof-8x8-sensors\altium\probe.txt');
  If Board <> Nil Then
  Begin
    PCBServer.PreProcess;
    C1 := PCBServer.LoadCompFromLibrary('VL53L5CX', 'C:\Users\john\Documents\Adom\tof-8x8-sensors\altium\Adom_ToF.PcbLib');
    If C1 = Nil Then L.Add('c1=nil') Else L.Add('c1=ok');
    L.SaveToFile('C:\Users\john\Documents\Adom\tof-8x8-sensors\altium\probe.txt');
    If C1 <> Nil Then
    Begin
      C1.X := MMsToCoord(10); C1.Y := MMsToCoord(7);
      C1.Name.Text := 'U1';
      Board.AddPCBObject(C1);
      L.Add('c1 placed');
    End;
    C3 := PCBServer.LoadCompFromLibrary('VL53L8CX', 'C:\Users\john\Documents\Adom\tof-8x8-sensors\altium\Adom_ToF.PcbLib');
    If C3 <> Nil Then
    Begin
      C3.X := MMsToCoord(29); C3.Y := MMsToCoord(7);
      C3.Name.Text := 'U3';
      Board.AddPCBObject(C3);
      L.Add('c3 placed');
    End;
    PCBServer.PostProcess;
    Board.ViewManager_FullUpdate;
    L.Add('done');
    L.SaveToFile('C:\Users\john\Documents\Adom\tof-8x8-sensors\altium\probe.txt');
  End;
  L.Free;
End;