Создание пароля на вход программы

procedure TForm1.FormCreate(Sender: TObject);
begin
form2.Show;
end;

Unit PassForm;
uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs;
const
  MyPassword = 'BlaBlaBla'; { Здесь пишем наш пароль }
 
type
  TPwdForm = class(TForm)
    PwdEdit: TEdit;
    BtnOk: TButton;
    BtnCancel: TButton;
    procedure BtnOkClick(Sender: TObject);
    procedure BtnCancelClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    function VerifyPassword: boolean;
  end;
 
var
  PwdForm: TPwdForm;
 
implementation
 
{$R *.dfm}
 
procedure TPwdForm.VerifyPassword:boolean;
begin
  if PwdEdit.Text = MyPassword then result:=TRUE else result:=FALSE
end;
 
procedure TPwdForm.BtnOkClick(Sender: TObject);
begin
  if VerifyPassword then ModalResult:=mrOK else
  MessageBox(Handle,'Incorrect password!','Error!',MB_ICONERROR)
end;
 
procedure TPwdForm.BtnCancelClick(Sender: TObject);
begin
  ModalResult:=mrCancel
end;
 
end.

program codeinput;
uses 
  Forms,
  Windows,
  MainForm in 'MainForm.pas', { скажем, класс TAppForm }
  PassForm in 'PassForm.pas'; { скажем, класс TPwdForm }
 
begin
  Application.Initialize
  Application.CreateForm(TPwdForm, PwdForm);
  if PwdForm.ShowModal = mrOK then
  Application.Run else Application.Terminate
end.

procedure TForm1.btn4Click(Sender: TObject);
var
h: hwnd;
begin
    if (edt3.Text = 'admin') and (edt4.Text = 'pass') then// Если пароль и логин верны
    begin
. . . 
    end
    else // или
    begin
    if edt3.Text <> 'admin' then // если логин неверный
    begin
. . .
    end;
    if edt4.Text <> 'pass' then // пароль неверный
    begin
. . .
    end;
    if (edt3.Text <> 'admin') and (edt4.Text <> 'pass') then // пароль и логин неправилльные
    begin
. . .
    end;
    end;
    end;