О динамических массивах.. Уж очень они резво в Delphi 7 память "шинкуют"...

Упало тут:

    l_LeftLine.AddBounds(l_UpLine, l_DownLine, rColor, rDrawType);

Смотрим внутрь:

procedure Tl3FrameLine.AddBounds(aMinBound: Tl3FrameLine;
  aMaxBound: Tl3FrameLine;
  aColor: Integer;
  aLinePartType: Tl3LinePartDrawType);
//#UC START# *48CA578300F4_48CA54A000F7_var*
var                                 
 i          : Integer;
 l_Start    : Integer;
 l_Finish   : Integer;
 l_Start1   : Integer;
 l_Finish1  : Integer;
 l_FndIndex : Integer; 
 l_LinePart : Tl3LinePart;
//#UC END# *48CA578300F4_48CA54A000F7_var*
begin
//#UC START# *48CA578300F4_48CA54A000F7_impl*
 Assert((aMinBound <> nil) and (aMaxBound <> nil), 'Одна из границ отрисовки линии не задана!');
 Inc(f_BndArrayLen);  
 SetLength(f_BoundsArray, f_BndArrayLen);

– я почти уверен, что это из-за динамическоих массивов.  Это для информации.