Esto es lo que yo hise espero que te sirva. saludos
AnsiString A ;
AnsiString B ;
AnsiString C ;
AnsiString Usuario ="";
Qusuariocontrasena->SQL->Clear();
Usuario = "SELECT usuario , contrasena , cargo FROM usuario WHERE usuario.usuario = :pusuario and usuario.contrasena = :pcontrasena;";
Qusuariocontrasena->SQL->Text = Usuario;
Qusuariocontrasena->Parameters->ParamByName("pusuario")->Value = Edit5->Text;
Qusuariocontrasena->Parameters->ParamByName("pcontrasena")->Value = Edit4->Text;
Qusuariocontrasena->Open();
A = Qusuariocontrasena->FieldByName("usuario")->AsString;
B = Qusuariocontrasena->FieldByName("contrasena")->AsString;
C = Qusuariocontrasena->FieldByName("cargo")->AsString;
if(Edit4->Text != "" && Edit5->Text != "")
{
ShowMessage("Conexion correcta.");
}
