اعداد قفل لبرنامج بلغة الدالفي (mot de passe) :
end;
//Mot de passé:
procedure TPasswordDlg.BitBtn1Click(Sender: TObject);
begin
if
(Password.Text=data.ConfigMotdepasse.Value) Then
BEGIN
Face.Show;
Hide;
end
ELSE if NbrEssai=3 Then
APPLICATION.Terminate;
NbrEssai:=NbrEssai+1;
Password.Text:='';
