QueryInicio->SQL->Clear();
QueryInicio->SQL->Add("select DIRECTIVO from USUARIOS where CONTRASENIA = :con and USUARIO = :us");
QueryInicio->SQL->Open();
//suponiendo que DIRECTIVO es de tipo cadena se crea una variable la cual va a tomar el valor que devuelve la consulta
AnsiString DIRECTIVO_ = QueryInicio->FieldByName("DIRECTIVO")->AsString;
QueryInicio-SQL->Close();