Verificar que haya informacion en un Tedit

[BrunoBsso]

Resalto tu problema

Código Delphi [-]
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;
    //Si la contraseña no es vacia, solamente muestra un mensaje
    //pero no evita ke se muestre el form5
    form5.show;
    form1.hide;
  end;
end;

Ese codigo permite entrar al Form5 cuando el usuario no es vacio. Al momento de verificar si la contraseña no es vacia, lo unico ke hace es dar aviso de ke se accesa al sistema. Mientras ke por otro lado, si la contraseña es vacia pero el usuario no, entra SI O SI al Form5.

Siguiendo tu codigo, tendrias ke cambiarlo por esto:

Código Delphi [-]
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');
       form5.show;
       form1.hide;
     end;
  end;
end;

Saludos!!!!!!!

PD: hay mejores formas, como la de bosster_018, pero yo no kise cambiar el "estilo" de tu codigo.