Arrow* arrowBetween( Box *box1, Box *box2 )
{
  IArrowItem *A;
  for ( int i = box1->OutgoingArrows->Count; i--; )
  {
    a = box1->OutgoingArrows[i];
    if ( a->DestinationBox == box2 )
    {
      return a;
    }
  }
  return NULL;
}

제갈식 님이 쓰신 글 :
: // 비베-----------------------------------------------------------
: Public Function arrowBetween(box1 As box, box2 As box) As Arrow
:     Dim a As arrow
:     For Each a In box1.OutgoingArrows
:       If a.DestinationBox Is box2 Then
:         arrowBetween = a
:         Exit Function
:       End If
:     Next a
:     arrowBetween = nill
: End Function
:
: 위의 비베코드를 제가 델파이로 아래처럼 바꾸없습니다. 잘 돌구요 ..
:
: // 델파이 ------------------------------------------------------
: function arrowBetween(box1: box; box2: box):arrow;
: var
:   a: IArrowItem;
:   i: integer;
: begin
:   for i:=0 to box1.OutgoingArrows.count-1 do begin
:     a:=box1.OutgoingArrows[i];
:     if a.DestinationBox=box2 then begin
:     arrowBetween := a;
:     Exit;
:     end;
:   end;
:   arrowBetween := nil;
: End;
:
: 그런데 이제 이녀석을 또 BCB 코드로 바꾸어야 합니다.
: 어떻게 바꾸면 될까요?
: 여기서 box, arrow 등은 차트에 들어가는 전용 그래픽 객체들입니다. 
:
: 고수님들의 답변 기다립니다.