Usuario Y Password Para Acceder A Una Aplicacion

[ecfisa]

Hola Rolando.

Te pido encarecidamente que uses las etiquetas [delphi] [/delphi] cuando incluyas código delphi en tus mensajes para que sean mas intelegibles.
Agregué etiquetas a cuatro mensajes en los que habías incluído código.

En cuanto al error Invalid variant operation:

Código Delphi [-]
  ..
  Form2.adoquery1.Close;
  Form2.AdoQuery1.SQL.Clear;
  Form2.AdoQuery1.SQL.Add('select username,password FROM DBA_USERS');
  Form2.AdoQuery1.SQL.Add('where username = :usuario and password = :clave');
  Form2.AdoQuery1.ParamByName('usuario').AsString:= DBEdit1.Text;
  Form2.AdoQuery1.ParamByName('clave').AsString:= EBEdit2.Text;
  Form2.AdoQuery1.Open;
  if not Form2.adoquery1.IsEmpty then
   Form1.ShowModal
  else
   ShowMessage ('Usuario O PassWord Invalido');
  ...

Saludos.