Crear Varios usuarios a partir de mi codigo

[ecfisa]

Hola feliz-58.

No sé donde tenes guardado los datos de los usuarios, generalmente se hace en la bd o en en un archivo. Pero sólo a fin del ejemplo voy a situar nombres de usuario y contraseñas como elementos de dos arrays of const.

Código Delphi [-]
...
implementation

const
  MAXUSR = 3;
  UserNames     : array[1..MAXUSR] of string=('user1','user2','user3');
  UserPasswords : array[1..MAXUSR] of string=('1234','2345','3456');


function TieneAcceso(const Name: string; const Pwd: string): boolean;
var
  i: Integer;
begin
  Result:= False;
  for i:= 1 to MAXUSR do
    if (Name = UserNames[i])and(Pwd = UserPasswords[i]) then
      Result:= True;
end;

// Llamada ejemplo
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  if not TieneAcceso(Edit1.Text, Edit2.Text) then
    raise Exception.Create('No tiene Acceso');
  ShowMessage('Todo Ok, puede continuar...');
end;

Saludos.