Este es mi codigo:
Código Delphi
[-]
procedure Tiniciarsesion.BitBtn1Click(Sender: TObject);
begin
if
edit1.Text<>'usuario1'
then
showmessage('Acceso Denegado, Su Nombre de Usuario es Incorrecto');
if
edit1.Text='usuario1'
then
begin
if
edit2.Text<>'1234'
then
showmessage('Acceso Denegado, Su Contraseña es Incorrecta') ;
if
edit2.Text='1234'
then
principal.Show;
edit2.Clear;
end;
end;
Pero es de un solo usuario, como le agrego dos mas?
Gracias de antemano...