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.