998_____________________________________________ 15





Imagel->Canvas->Brush->Color = clBlack;

Imagel->Canvas->FrameRect(Rect(10,10,100,100)) ;

    Imagel  .

Free

     
 TObject



_fastcall Free ();



 Free       -
,    ,      -
  .       delete,
     Free.

 Free ,        
         (    
 NULL).      .

GetTabOrderLxst_____________________________________

       -


 TWinControl



DYNAMIC void _fastcall GetTabOrderList(Classes::TList* List);



 GetTabOrderList '  List  TList   -
   .      -
   ,    ,   -
 .         Tab Stop
 .

 GetTabOrderList   FindNextControl. -
       .



        -
     .

TWinControl *obj;

TList *List = new TList;

GetTabOrderList(List) ;

forfint i = 0; i < List->Count; i++)