[Resolvido] [Erro] Opção de login

[Vyny 0]

É o seguinte:

 

Estou desenvolvendo um sistema para uma biblioteca.

 

Na 1ª tela eu tenho LOGIN E SENHA!

 

Este é o código do botão ENTRAR:

 

Begin
if ComboBox1.Text='Administrador' then
TLogin.TableName:='Administrador.db';
	 if not TLogin.Active then
	TLogin.Open;
  if TLogin.Locate('Nome',login.Text,[]) then
	begin
	vSenha:=TLogin.FieldByName('Senha').AsString;
	If (vSenha = senha.Text) Then
		Begin
		Form3.Create;
		End
	else
		Begin
		MessageDLG('Falha: Usuario e/ou senha incorretos', mtConfirmation,[mbOk],0);
		login.SetFocus;
		End;
	end
  else
	Begin
	MessageDLG('Falha: Usuario e/ou senha incorretos', mtConfirmation,[mbOk],0);
	login.SetFocus;
	End;

Se o login ou senha estão errados a mensagem aparece corretamente.

 

Porem se estão certos da o seguinte erro:

 

 

Alguém sabe como posso resolver?

[rvlira 0]

Form3 := TForm3.Create(nil);

 

t+!

[marcio.theis 3]

Se quiser, veja este tópico que mostra como fazer acesso por login com níveis, pode lhe ajudar também no seu problema.

[Vyny 0]

Form3 := TForm3.Create(nil);

 

t+!

Isto RESOLVEU!

 

Muito obrigado!