unit RSPCA;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, jpeg;
 
type
  TFrmRSPCALogin = class(TForm)
    BtnLogin: TButton;
    BtnExit: TButton;
    TxtPassword: TEdit;
    TxtUsername: TEdit;
    Image1: TImage;
    LblUsername: TLabel;
    Label1: TLabel;
    procedure BtnExitClick(Sender: TObject);
    procedure BtnLoginClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  FrmRSPCALogin: TFrmRSPCALogin;
 
implementation
 
 
type
 
  Tuser = record
    s_Username  : string;
    s_Password  : string;
    i_type      : integer;
 
end;
 
const
  USERS     = 'Users.txt';
  SETTINGS  = 'Settings.txt';
 
var
  a_user      : array [0..15] of TUser;
  i_logins    : integer;
  i_maxlogins : integer;
 
{$R *.dfm}
 
procedure TFrmRSPCALogin.BtnExitClick(Sender: TObject);
begin
  Application.Terminate;
end;
 
procedure TFrmRSPCALogin.BtnLoginClick(Sender: TObject);
var
  fp_settings : textFile;
begin
  inc(i_logins);
 
  if i_logins > i_maxlogins then
  begin
    messagedlg('To many Login Attempts, Program Is Now Locked!', mtError, [mbOk], 0);
 
    AssignFile(fp_settings, SETTINGS);
    Rewrite(fp_settings);
 
    WriteLn(fp_settings, '1');
    WriteLn(fp_settings, InttoStr(i_maxlogins));
 
    CloseFile(fp_settings);
 
    Application.terminate;
    end else
    begin
      if Uppercase(trim(TxtPassword.Text)) =
      Uppercase(trim(a_User[TxtUsername.ItemIndex].s_password)) then
        begin
          s_username  := a_user[LstUsers.Itemindex.s_Username;
          FrmPassword.Hide;
          Application.CreateForm(TFrmMain, FrmMain);
          FrmMain.Show;
          end else
          begin
          MessageDlg('Wrong Password!', mtError, [mbOk], 0);
          TxtPassword.Clear;
          TxtPassword.setFocus;
          end;
        end;
    end;
procedure TFrmRSPCALogin.FormCreate(Sender: TObject);
var
  fp_users    : Textfile;
  fp_settings : Textfile;
  i_users     : integer;
  s_temp      : string;
 
  begin
    if FileExists(SETTINGS) then
    begin
        AssignFile(fp_settings, SETTINGS);
        reset(fp_Settings);
 
        ReadLn(fp_settings, s_temp);
        if s_temp <> '0' then
        begin
          MessageDlg('Program is Locked!', mtError, [mbOk], 0);
          Application.terminate;
        end else
          begin
            ReadLn(fp_settings, s_temp);
            i_maxlogins := StrToInt(s_temp);
          end;
        CloseFile(fp_settings);
    end else
      begin
        MessageDlg('Missing Settings Files!', mterror, [mbOk], 0);
        Application.terminate;
      end;
    if FileExists (USERS) then
    begin
      AssignFile(fp_users, USERS);
      Reset(fp_USERRS);
 
      i_users := 0;
 
      while not EOF(fp_users) do
      begin
      ReadLn(fp_Uers, a_user[i_users].s_username);
      LstUsers.items.Add(a_user[i_users].s_username);
      ReadLn(fp_Users, a_user[i_users].s_password);
 
      ReadLn(fp_users, s_temp);
      a_User[i_users].i_type := StrToInt(s_temp);
 
      inc(i_users);
    end;
 
    closeFile(fp_users);
    end;i_logins :=0;
 
  end else
  begin;
  MessageDlg('Password File does not exist!', mtError, [mbOk], 0);
  Application.terminate;
  end;
end;
 
 
 
end.

Uppercase(trim(a_User[TxtUsername.ItemIndex].s_password))

 Uppercase(trim(a_User[LstUsername.ItemIndex].s_password))