Error Abstracto

[Delar]

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
  //Lo que tengas que hacer si es correcto
  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!