Verificar que haya informacion en un Tedit

[aquilesbrinko]

Disculpen, tengo el siguiente código

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

begin
  if usuario.text='' then
    showmessage ('Escribe un usuario');
    usuario.setfocus;
      if usuario.Text<>'' then

    begin
        if contrasena.text='' then
    showmessage ('Escribe una contraseña');
    contrasena.setfocus;
      if contrasena.Text<>'' then

      begin
        showmessage('Accediendo al sistema');
        end;
         form5.show;
         form1.hide;
      end;
end;

Lo que busco es que verifique que haya datos en cada Tedit y de no ser asi no de acceso al sistema (Form5), sin embargo pese a que no introduzco datos en el Tedit contrasena me permite entrar...

En que esta mal mi sintaxis?

Por su ayuda gracias.