O sino podrias hacer una procedure para comprobar y te ahorrarias codigo:
Código Delphi
[-]procedure Comprobar(usr, pass: string);
begin
if (edusuario = usr) then
begin
if (edcontraseña = pass) then
begin
end;
end
else
begin
ShowMessage('Nombre o contraseña incorrectos');
end;
end;
Luego haces:
Código Delphi
[-]if (key=#13) then
begin
Comprobar('usuario','contraseña');
end;
Y en el btnaceptarClick:
Código Delphi
[-]begin
Comprobar('usuario','contraseña');
end;
Saludos!