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;
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.