// 비베-----------------------------------------------------------
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 등은 차트에 들어가는 전용 그래픽 객체들입니다. 

고수님들의 답변 기다립니다.