وضع كلمة السر في مشروع دلفي بدون تغيير

وضع كلمة السر في مشروع دلفي بدون تغيير

بسم الله الرحمن الرحيم
الصلاة السلام على رسول الله

كيف تضع كلمة مرور الى مشروعك

وضع كلمة السر في المشروع بالدلفي خمسة

-------------------------------------
الوحدة الاولى
-------------------------------------
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;

type
TForm1 = class(TForm)
Edit1: TEdit;
Button1: TButton;
Label1: TLabel;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Edit1KeyPress(Sender: TObject; var Key: Char);
private
{ Déclarations privées }
public
{ Déclarations publiques }
end;

var
Form1: TForm1;

implementation

uses Unit2;

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
begin
Label1.Caption := 'أدخل كلمة المرور';
Edit1.Text := '';
Button1.Caption := 'موافق';
Form1.Caption := 'كلمة المرور';
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
if Edit1.Text = '1954' then
begin
Form2.Show; // or Form1.ShowModal;
Form1.Hide;
end
else ShowMessage('كلمة المرور خاطئة');
Edit1.Text := '';
end;

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key = #13 then Button1Click(Sender);
end;

end.
--------------------------------------
الوحدة الثانية
--------------------------------------
unit Unit2;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;

type
TForm2 = class(TForm)
Button1: TButton;
Label1: TLabel;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Déclarations privées }
public
{ Déclarations publiques }
end;

var
Form2: TForm2;

implementation

uses Unit1;

{$R *.DFM}

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
// اظهار النموذج الاول
Form1.Show;
end;

procedure TForm2.Button1Click(Sender: TObject);
begin
// خروج من البرنامج
Application.Terminate;
end;

procedure TForm2.FormCreate(Sender: TObject);
begin
// اغلاق البرنامج
Button1.Caption := 'خروج من البرنامج';
Form2.Caption := 'واجهة المشروع';
Label1.Caption := 'هذا مشروعي مرحبا بكم';
end;

end.

مشكور على الرد الذي تفضلت به

بارك الله فيك أخي