type TfmDNA = class()
procedure ApplyDNA; |
|
procedure btnCancelClick(Sender: TObject); |
|
procedure btnOKClick(Sender: TObject); |
|
procedure FormShow(Sender: TObject); |
|
procedure GetDNA; |
|
procedure LoadDNA1Click(Sender: TObject); |
|
procedure SaveDNA1Click(Sender: TObject); |
procedure ApplyDNA; |
procedure btnCancelClick(Sender: TObject); |
procedure btnOKClick(Sender: TObject); |
procedure FormShow(Sender: TObject); |
procedure GetDNA; |
procedure LoadDNA1Click(Sender: TObject); |
procedure SaveDNA1Click(Sender: TObject); |