unit MainUnit; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Registry; type TfrmMain = class(TForm) btn1: TButton; edt1: TEdit; lbl1: TLabel; procedure btn1Click(Sender: TObject); private