Запоминание количества входов

      if (usedEntries < numEntries) and
         (SrcElement.Left < Self.Left - 40) and
         (ConnectLst.IndexOf(CreateConnectRec(SrcElement, Self, 0)) = -1) // <--- Вот так. 
      then

procedure TLogicalElement.MouseDown(Button: TMouseButton; Shift: TShiftState;
  X, Y: Integer);
 
  procedure UpdateConnects(updateDst : TLogicalElement;
                           updateEntryNum : integer);
  var
    ix : integer;
    foo : TConnectRec;
  begin
    // для всех элементов списка связей, где dst = updateDst,
    // уменьшаем dstEntry на 1, если он больше dstEntryNum:
    for ix := 0 to Pred(ConnectLst.Count) do
      if (ConnectLst[ix].dst = updateDst) and (ConnectLst[ix].dstEntry > updateEntryNum) then
      begin
        foo := ConnectLst[ix];
        foo.dstEntry := foo.dstEntry - 1;
        ConnectLst[ix] := foo;
      end;
    // уменьшаем число задействованных входов
    Dec(updateDst.usedEntries);
  end;
 
var
  ix : integer;
  dstEntryNum : integer;
  foo : TConnectRec;
begin
  inherited MouseDown(Button, Shift, X, Y);
  tx:=X; ty:=y;
  isDragging := Shift = [ssLeft];
  if Button = mbLeft then
  begin
 
  if ssCtrl in Shift then
  begin
    OddMouseClick := not OddMouseClick;
    if OddMouseClick then
    begin
      // источник
      SrcElement := Self;
    end
    else
    begin
      // приемник...
      // проверяем, есть ли свободные входы в приемнике
      if (usedEntries < numEntries) and
         (SrcElement.Left < Self.Left - 40) and
         (ConnectLst.IndexOf(CreateConnectRec(SrcElement, Self, 0)) = -1)
      then
      begin
        Inc(usedEntries);
        ConnectLst.Add(CreateConnectRec(SrcElement, Self, usedEntries));
        RedrawConnections;
      end
      else
      begin
        ShowMessage('Невозможно добавить соединение');
        TLogicalElement.SrcElement := nil;
      end;
    end;
  end // конец если Ctrl зажат
  else if ssShift in Shift then
  begin
    OddMouseClick := not OddMouseClick;
    if OddMouseClick then
    begin
      // источник
      SrcElement := Self;
    end
    else
    begin
      // приемник...
      // проверяем, есть ли уже связь: находим ее индекс в списке
      foo := CreateConnectRec(SrcElement, Self, 0);
      ix := ConnectLst.IndexOf(foo);
      if ix > -1 then
      begin
        // ага, связь есть. Запоминаем номер входа приемника:
        dstEntryNum := ConnectLst[ix].dstEntry;
        // теперь удаляем связь
        ConnectLst.Delete(ix);
 
        UpdateConnects(Self, dstEntryNum);
      end;
 
      RedrawConnections;
    end;
  end; // конец если Shift зажат
  end // left mouse button
  else
  begin
    // right mouse button = delete self
    for ix := Pred(ConnectLst.Count) downto 0 do
      if ConnectLst[ix].src = Self then
      begin
        // если удаляемый элемент - ИСТОЧНИК связи, то сначала надо обновить
        // приемник
        UpdateConnects(ConnectLst[ix].dst, ConnectLst[ix].dstEntry);
        // и только теперь удалять связь
        ConnectLst.Delete(ix);
      end
      else if ConnectLst[ix].dst = Self then
      begin
        // если удаляемый элемент - ПРИЕМНИК связи - то ничего делать не надо,
        // просто удалить связь, на другие элементы это не повнияет
        ConnectLst.Delete(ix);
      end;
 
    SrcElement := self;
    Form1.Timer1.Enabled := True;
  end;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if Assigned(TLogicalElement.SrcElement) then
    TLogicalElement.SrcElement.Free;
  (Sender as TTimer).Enabled := False;
  RedrawConnections;
end;

procedure RedrawConnections;
var
  R, T : TConnectRec;
  isIntersects : boolean;
  c1X, c1Y, c2X, c2Y, T1X, T1Y, T2Y : integer;
begin
  Form1.Holst.Repaint;
 
  for R in ConnectLst do
  begin
    c1X:= R.src.Left + 48;
    c1Y:= R.src.Top + 23;
    c2X:= R.dst.Left+1;
    c2Y:= R.dst.Top + 15 + Pred(R.dstEntry)*16;
    with Form1.Holst.Canvas do
    Begin
      Pen.Width:=1;
      Line(c1X,c1Y,c1X + 5,c1Y);
      Line(c1X + 5,c1Y,c1X + 5,c2Y);
      Line(c1X + 5,c2Y,c2X,c2Y);
 
 
      isIntersects := false;
      for T in ConnectLst do
      begin
        T1X := T.src.Left + 48;
        T1Y := T.src.Top + 23;
        T2Y := T.dst.Top + 15 + Pred(T.dstEntry)*16;
        isIntersects := isIntersects or
          ((R.src = T.src) or (R.dst = T.dst)) and
          ((c1X = T1X) and (C2y > Min(T1Y, T2Y)) and (C2y < Max(T1Y, T2Y)));
      end;
      Brush.Color:=clRed;
      if isIntersects then  Ellipse((c1X+5)-5, c2Y-5, (c1X+5)+5, c2Y+5);
 
    End;
  end;
end;

Uses Math;

TEntries = (E_2, E_3, E_4,  E_0);  
// ...
Heights : array[TEntries] of integer = (48, 63, 79, 13);

E := TLogicKeyIn.CreateLogic(Self, Holst, E_0);

 { TKeyIn }
constructor TLogicKeyIn.CreateLogic(AOwner: TComponent; AParent: TWinControl;
  AnEntries: TEntries);
begin
  inherited CreateElement(AOwner, AParent, 'keyin', AnEntries);
  numEntries := 0; // Вот оно...
end;