Pantalla Login

[[enecumene]]

Saludos señores:

tengo este problemita, ya tengo el form de login creado, ya se como llamarlo antes del principal, tengo un codigo en el boton aceptar pero no se como hago que al dar a ese boton valide el password y entre de una vez al principal, y como hacerlo que en vez darle al boton dandole Enter?

aqui os dejo codigo del boton:

Código Delphi [-]
procedure TLogin.BitBtn4Click(Sender: TObject);
begin
  if not tbUsuarios.Active then
    tbUsuarios.Open;

  if tbUsuarios.Locate('usuario', User.Text, []) then
  begin
    if tbUsuarios.FieldByName('contrasena').AsString = Pass.Text then
      ShowMessage('Estan correctos');
    else
      ShowMessage('Pass incorrecto');
  end
  else
    ShowMessage('User innexistente');
end;

gracias!!!