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.
