Urgente!!!!

o que faltou está em negrito

if editsenha.text<>´henrique´ then [b:eea73b87b2]begin[/b:eea73b87b2]
showmessage(´Senha incorreta´) ;
principalf.BitBtnFTabela.visible:=false ;
[b:eea73b87b2]end [/b:eea73b87b2] else [b:eea73b87b2]begin[/b:eea73b87b2]
dm.nf.open;
principalf.BitBtnVTabela.visible:=false;
principalf.BitBtnFTabela.visible:=true ;
[b:eea73b87b2]end;[/b:eea73b87b2]

Falta um begin ... end

if editsenha.text<>´henrique´ then
BEGIN
showmessage(´Senha incorreta´) ;
principalf.BitBtnFTabela.visible:=false ;
END
else
dm.nf.open;
principalf.BitBtnVTabela.visible:=false;
principalf.BitBtnFTabela.visible:=true ;

Do seu modo, se a senha está incoprreta, exibe a mensagem e executa a próxima linha - a do ...=false e aí acha else e aí dá erro.

o que faltou está em negrito

if editsenha.text<>´henrique´ then [b:fbc053caa4]begin[/b:fbc053caa4]
showmessage(´Senha incorreta´) ;
principalf.BitBtnFTabela.visible:=false ;
[b:fbc053caa4]end [/b:fbc053caa4] else [b:fbc053caa4]begin[/b:fbc053caa4]
dm.nf.open;
principalf.BitBtnVTabela.visible:=false;
principalf.BitBtnFTabela.visible:=true ;
[b:fbc053caa4]end;[/b:fbc053caa4][/quote:fbc053caa4]

Sou iniciante de Delphi e estou apanhando muito ainda!
Valeu amigo. Funcionou. Obrigado.