 -  _____45

_published:     // IDE-managed Components
TLabel * Label 1;

TButton *Buttonl;

void_fastcall ButtonlClick(TObject *Sender);

private:         // User declarations
// Fl   Ch6     

void _fastcall Fl(char Ch) ;

char Ch6;

public:          // User declarations

_fastcall TFormI(TComponent* Owner) ;

//  Chl   F2   
//      ,   
//  

char Chl;

void _fastcall F2(char Ch);

};

//-

extern PACKAGE TFormI *Forml;

//   Ch2   F3   
//  ;  Ch2    ,
//      extern;

//  F3    ,   
//  

char Ch2;

void F3(char Ch) ;

ttendif

 :

//

ftinclude <vcl.h>
ttpragma hdrstop

^include "Unitl.h"

//

ttpragma package(smart init)
ttpragma resource "*.dfm"
TFormI *Forml;

//

_fastcall TPormI::TFormI(TComponent* Owner)

: TForm(Owner)
(

t

//

//   Ch3   F4   
//  ;  Ch3    ,
//     . extern;

//  F4    ,   
//  
char Ch3;

void F4(char Ch)
{

Forml->Labell->Caption = Forml->Labell->Caption + Ch + Forml->Chl;

)

//

void _fastcall TFormI::Fl(char Ch)
<

Labell->Caption = Labell->Caption + Ch + Chl;

//