const
 MyPhone = '16105';
 FirstPhone = '16708';
 SecondPhone = '16709';
........................................................
........................................................
.......................................................
type
 TRingProp = record
   CallId : Integer;
   CalledPhone,
   CallingPhone : string;
  End;
 PRingProp = ^TRingProp;
...........................................................
...........................................................
.............................................................
private
   ListRings : array [0..1] of PRingProp;
   FirstLine : Boolean;
...........................................................
...........................................................
.............................................................
procedure TfmMain.btMakeCallFirstLineClick(Sender: TObject);
begin
//Вызываю первого абонента
 FirstLine := True;
 CtConectorX1.MakeCall(MyPhone, FirstPhone, 'Test программа');
end;
{
После вызова абонента FirstPhone - этот абонент может брать или не брать трубку. Проследите за реакцией ctConector сами.
}
...............................................................................
................................................................................ ....
................................................................................
//После вызова абонента, во время "длинных гудков", обрабатывается событие
//OnctConector-а - CSTADelivered (Оно чень важное. Из него черпаем необходимую информацию)

procedure TfmMain.ctConectorX1CSTADelivered(Sender: TObject; monitorCrossRefId,
 connectionCallId: Integer; connectionDevice, alertingDevice, callingDevice,
 calledDevice, lastRedirectionDevice: ShortString; localConnectionInfo, cause,
 deliveredType: Integer; trunkGroup, trunkMember, split, userInfo: ShortString;
 reason: Integer; distributingDevice, ucid: ShortString;
 flexibleBilling: Boolean);
 function LineResume : Byte;
 begin
   If FirstLine Then Result := 0
                        Else Result := 1;
 end;
begin
     If Assigned(ListRings[LineResume]) Then
     Begin
       Dispose(ListRings[LineResume]);
     End;
     New(ListRings[LineResume]);
     ListRings[LineResume].CallId := connectionCallId;
     ListRings[LineResume].CalledPhone := calledDevice;
     ListRings[LineResume].CallingPhone := callingDevice;
end;
..............................................................
.............................................................
...........................................................
procedure TfmMain.btMakeCallSecondLineClick(Sender: TObject);
begin
 //Перевожу звонок на второго абонента. В этот момент у первого абонента
// начинает звучать душещипательная мелодия.
 FirstLine := False;
 CtConectorX1.ConsultationCall(ListRings[0].CallId , ListRings[0].CallingPhone , SecondPhone, 'Тестовый вызов');
end;

{
После перевода звонка - так же происходит событие OnCSTADelivered.. Булева переменная FirstLine = False
}
...................................................................
..................................................................
...............................................................
//Ну.. и завершающий аккорды:
procedure TfmMain.btClearMyCallClick(Sender: TObject);
begin
//Отбиваем звонок с первым абонентом и болтаем с номером SecondPhone
 CtConectorX1.ClearCall(ListRings[0].CallId, ListRings[0].CallingPhone);  
end;

//ИЛИ

procedure TfmMain.btClearSecondCallClick(Sender: TObject);
begin
//Отбиваю абонента (или длинные гудки), на которого перевел звонок (SecondPhone)
 CtConectorX1.ClearCall(ListRings[1].CallId, ListRings[1].CalledPhone);

//...и возвращаюсь к первому абоненту (FirstPhone). Продолжаю с ним разговор
 CtConectorX1.AnswerCall(ListRings[0].CallId, ListRings[0].CallingPhone)
end;