unit post_virkey;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
btn1: TButton;
tmr1: TTimer;
lbl1: TLabel;
edt1: TEdit;
lbl2: TLabel;
edt2: TEdit;
lbl4: TLabel;
edt3: TEdit;
lbl5: TLabel;
edt4: TEdit;
btn4: TButton;
lbl3: TLabel;
tmr2: TTimer;
lbl6: TLabel;
procedure btn1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure tmr1Timer(Sender: TObject);
procedure btn4Click(Sender: TObject);
procedure tmr2Timer(Sender: TObject);
private
{ Private declarations }
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
btn1: TButton;
tmr1: TTimer;
lbl1: TLabel;
edt1: TEdit;
lbl2: TLabel;
edt2: TEdit;
lbl4: TLabel;
edt3: TEdit;
lbl5: TLabel;
edt4: TEdit;
btn4: TButton;
lbl3: TLabel;
tmr2: TTimer;
lbl6: TLabel;
procedure btn1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure tmr1Timer(Sender: TObject);
procedure btn4Click(Sender: TObject);
procedure tmr2Timer(Sender: TObject);
private
{ Private declarations }