Crear Varios usuarios a partir de mi codigo

[[nlsgarcia]]

feliz-58,

Revisa este código:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin

   if (txtUsername.Text = 'usuario1') and (txtPassword.text = '1234') or
      (txtUsername.Text = 'usuario2') and (txtPassword.text = '5678') or
      (txtUsername.Text = 'usuario3') and (txtPassword.text = '9123') or
      (txtUsername.Text = 'usuario4') and (txtPassword.text = '4567')
   then
   begin
      // Tu Código a Procesar
   end
   else
      MessageDlg('Acceso Denegado: Username y/o Password Incorrectos', mtinformation, [mbok], 0);

end;

Nota: Lo ideal es que la información de seguridad este en una BD, para algo simple el código anterior es válido.

Espero sea útil

Nelson.