[Lizette]

Holaa mi aplicacion, me genera este error, estoy creando dinamicamente los formularios cuando los requiero, el codigo en el que me causa este error es en el boton entrar:

Código Delphi [-]
if(ban=0)and(prim=True)then
     begin
      ADOtblusuario.First;
      ADOtblusuario.Insert;
      ADOtblusuario.FieldByName('IdUs').AsString:=EditNomUs.Text;
      ADOtblusuario.FieldByName('Pass').AsString:=EditCont.Text;
      ADOtblusuario.FieldByName('Sesion').AsString:=sesion;
      ADOtblusuario.Post;
      EditNomUs.Text:='';
      EditCont.Text:='';
      frmAcceso.Hide;
      frmFraseMot:= TfrmFraseMot.Create(self);
      frmFraseMot.Show;
      frmFraseMot.Hide;
      frmOpciones:= TfrmOpciones.Create(self);
      frmOpciones.Show;
     end
     else
      begin
      if(ADOtblusuario.Locate('IdUs',EditNomUs.Text,[locaseinsensitive]))and (ADOtblusuario.Locate('Pass',EditCont.Text,[locaseinsensitive])) then
        begin
         EditNomUs.Text:='';
         EditCont.Text:='';
         frmAcceso.Hide;
         frmFraseMot:= TfrmFraseMot.Create(self);
         frmFraseMot.Show;
         frmFraseMot.Hide;
         frmOpciones:= TfrmOpciones.Create(self);
         frmOpciones.Show;
        end
        else
         begin
          Application.MessageBox('La contraseña introducida es    
          incorrecta','Contraseña Incorrecta',Mb_IconWarning);
          EditCont.Text:='';
          EditCont.SetFocus;
         end;
      end;
  ADOtblusuario.Close;

El error que me marca es el siguiente:
Project Proy.exe raised exception class EAccessViolation with message 'Access violation at address 0045CCF6 in module 'Pry.exe'. Read of address 000002F4'.

El codigo en negritas, es el que ya no ejecuta y probablemente el error este alli..