Создание окна ввода логина и пароля

program Portfolio;
 
{$mode objfpc}{$H+}
 
uses
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
  Interfaces, // this includes the LCL widgetset
  Forms, Main, refyears, refclasses, dm, addclass, addyear, login,
connectionpath,
  Dialogs
  { you can add units after this };
 
{$R *.res}
 
begin
  RequireDerivedFormResource := True;
  Application.Initialize;
  Application.CreateForm(TfConnectionPath, fConnectionPath);
 //вот здесь дополнительные настройки находятся
 
  if TfLogin.Execute then
  begin
    Application.CreateForm(TfMain, fMain) ;
    Application.CreateForm(TfRefYears, fRefYears);
    Application.CreateForm(TfRefClasses, fRefClasses);
    Application.CreateForm(TfDM, fDM);
    Application.CreateForm(TfAddClass, fAddClass);
    Application.CreateForm(TfAddYear, fAddYear);
    Application.Run;
  end
  else
  begin
      Application.Terminate;
  end;
 
end.

unit login;
 
{$mode objfpc}
 
interface
 
uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, Buttons,
  StdCtrls, ExtCtrls;
 
type
 
  { TfLogin }
 
  TfLogin = class(TForm)
    BitBtnSettings: TBitBtn;
    BitBtnEnter: TBitBtn;
    ShowPass: TCheckBox;
    LoginEdit: TLabeledEdit;
    PassEdit: TLabeledEdit;
    procedure BitBtnEnterClick(Sender: TObject);
    procedure BitBtnSettingsClick(Sender: TObject);
    procedure ShowPassChange(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
    class function Execute : boolean;
  end;
 
var
  fLogin: TfLogin;
 
implementation
 
uses connectionpath;
 
{$R *.lfm}
 
{ TfLogin }
 
class function TfLogin.Execute: boolean;
begin
  with TfLogin.Create(nil) do
  try
    Result := ShowModal = mrOk;
  finally
    Free;
  end;
end;
 
procedure TfLogin.BitBtnSettingsClick(Sender: TObject);
begin
  fConnectionPath.ShowModal;
//вызываю форму в модальном режиме,
//после закрытия которой пропадает форма
//с логином и паролем, с которой я перешёл
//на fConnectionPath
end;
 
procedure TfLogin.ShowPassChange(Sender: TObject);
begin
  if ShowPass.Checked then
    PassEdit.PasswordChar:=#0
  else
    PassEdit.PasswordChar:='*';
end;
 
procedure TfLogin.BitBtnEnterClick(Sender: TObject);
begin
  if (PassEdit.Text = '12345') and (LoginEdit.Text = 'admin') then
    ModalResult := mrOK
  else
    ModalResult := mrAbort;
end;
 
end.

class function TfLogin.Execute: boolean;
begin
while not Execute do
begin
  with TfLogin.Create(nil) do
  try
    Result := ShowModal = mrOk;
  finally
    Free;
  end;
end;
end;

var
  retries:integer;
 
procedure TfLogin.BitBtnEnterClick(Sender: TObject);
begin
  if (PassEdit.Text = '12345') and (LoginEdit.Text = 'admin') then
    ModalResult := mrOK
  else
  begin
    retries := retries + 1;
    LoginEdit.Text := '';
    PassEdit.Text := '';
    if retries = 3 then ModalResult := mrAbort;
  end;
end;